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ABSTRACT 

This document is the first of seven units developed 
by the Math Network Curriculum Project, Each unit, designed to be a 
2-week module , is a teacher's guide which includes detailed 
directions along with the courseware and software needed. Teacher 
intervention in the non-computer activities that begin each unit is 
required, and the consistent use of small-group instruction makes the 
units usable in a standard classroom if two microcomputers are 
present. The Input-Output Unit develops students' abilities to 
recognize and describe patterns and introduces the notion of 
expressing mathematical concepts in a symbolic language, Easy Speak. 
The experience of using Easy Speak prepares students to use algebra, 
to express numerical ideas. Practice is provided on simple 
input-output machines, many of which grow out of activities with 
manipulative materials, and moves to machines with two-part rules* 
Printed copies of the code for the Wizard and Easy Speak computer 
programs are included. Wizard reinforces the idea of conditional 
statements by having students create their own and interact with the 
computer. Easy Speak, used with Easy Speak Summary, permits students 
working in pairs to create mystery machines for pairs of numbers. 
They can also try mystery machines created by students in other 
classes. Both programs were developed for use on a Commodore PET 
Computer with at least 16K of RAM using 4.0 BASIC. (MNS) 



********************************************* 

* Reproductions supplied by EDRS are the best that can be made * 
°* from the original document. * 

- *********************************************************************** 



N\ 
t— I 

L&J 



Input-Output 



Teacher' 8 Guide 



U.S. DEPARTMENT OF EDUCATION 
NATIONAL INSTITUTE OF EDUCATION 
EDUCATIONAL RESOURCES INFORMATION 
J CENTER (ERIC) ^ 

$1 This document has betn reproduced as 
received from the person or organization 
originating it 
□ Minor changes have been made to improve 
reproduction quality 



• Points of view or opinions stated in this docu- 
ment do not necessarily represent official NIE 
position or policy. 



/ 



Math Network Curriculum Project 



San Francisco State University 



5* 

9 

ERIC 



Funded by the National Science Foundation and 
the National Institute of Education 

Project No.^SED 80121*65 
Copyright, 1981 



6 



"PERMISSION TO REPRODUCE THTS 
MATERIAL HAS BEEN GRANTED BY 



TO THE EDUCATIONAL RESOURCES 
INFORMATION CENTER (ERIC)." 



INPUT - .OUTPUT UNIT 
TEACHER'S GUIDE 
Math Network Curriculum Projec 
TABLE OF CONTENTS 



Overview page 2 

How to Use This Guide page 3 

m 

Summary of Activities and Materials page 4 

Activities 

1. The Fable of the Wizards page 6 

2. Input-Output Machines ..page 10 

3. Mystery Machines page 13 

4. Wizard pa$e 16 

5. Wizard 1 s Workshop page 19 

6. The Human Computer page 22 

7. Easy Speak page 26 



Appendix 

MYSTERY TCWER transparency 
INPUT-OUTPUT MACHINE transparency 
Worksheets 

OTHER MACHINES worksheet 

DISCUSSION WORKSHEET 

MYSTERY MACHINES worksheet 

EXAMPLES OF CONDITIONALS worksheet 

WORKSHEET A 

WORKSHEET B 

WIZARD'S WORKSHOP 

WIZARD'S WORKSHOP experiment cards (8) 
EASY SPEAK SUMMARY 
HUMAN COMPUTER WORKSHEET 
EASY SPEAK WORKSHEET 



OVERVIEW 

The ability to recognize patterns is a key to mathematical thinking. 
Patterns are plentiful in almost every area of mathematics and science* 
Searching for these patterns is a way of thinking that is essential for 
approaching mathematics at any level. Mary Barratta-Lorton points out this 
significance for learning: 



"Looking for patterns trains the mind to search out and discover 
similarities that bind seemingly unrelated information together as a 
whole... A child who expects things to "make sense" looks for the sense 
in things and from this sense develops an understanding. A child who 
does not see patterns often does not expect things to make sense and 
sees all events as discrete, separate and unrelated." 

In this unit, students will search for and create elementary functions. 

The basis of this unit is in the numerical patterns found in the Input-Output 
format. Student activities are organized around Input-Output Machines and a 
fantasy of ficticious Wizards. Experiments using concrete materials are used 
to provide a "real world" experience that parallels the computer-based 
activities. The computer activities culminate in the students* use of the 
language EASY SPEAK to preate functions of their" own for other students to 
explore. 

In addition to the fantasy, this unit depends on cooperative learning in 
groups of four to support, student learning.,, This cooperative, mode of 
learning can also ease the teachers task by reducing the need "for teacher 
contact with individual students and by encouraging students to be more 
self-reliant. 

The combination of work with the number patterns of elementary functions and 
the use of EASY, SPEAK to create operating rules for more complex functions 
can give students a working understanding of fundamental concepts from 
Algebra and at the same time provide them with reasonable practice in 
arithmetic skills. 



How to Use this Guide 



The activities of this unit are designed to be presented in sequence. Each' 
activity is presented with the following categories: 

FORMAT 
TIME 

MATERIALS 

BACKGROUND 

PURPOSE 

TEACHER PREPARATION 
ACTIVITY 

4 

The ACTIVITY section describes in detail what you and your students will be 
doing. Along with specific teaching instructions and directions for Student 
activities, ideas for classroom management are included. A . significant 
classroom organization idea of this section is the use of groups of four. 
This entails: / 

Randomly putting students into grojps of four each. You might hand out 
playing cards (or numbered slips of paper) or have students count off 
to create- the groups as called for "in this guide. 

Arranging classroom seating by pushing desks into groups. 

Circulating among the groups during the activities and offering help 
when necessary. Avoid interrupting the entire class while they are 
working in groups. 

Discussing operating rules. Cooperative group work may be new to many 
students. Help them understand the "team" aspect of their 
assignments. Require that they ask questions of one another before 
they ask you. 
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Summary of Activities and Materials 



1. THE FABLE OF THE WIZARDS (1/2 day) 

A tongue-in-cheek fable to introduce the input-output idea. 

OVERHEAD PROJECTOR 
MYSTERY TOWER transparency 

2. INPUT-OUTPUT MACHINES (1 day) 

A review of the input-output idea. Students will create their own elementary 
functions. The group process is introduced. 

OVERHEAD PROJECTOR 
MYSTERY TCWER transparency 
INPUT-OUTPUT MACHINE transparency 
OTHER MACHINES worksheet 
DISCUSSION WORKSHEET 

3. MYSTERY MACHINES (1 or 2 days) 

The idea of conditional statements for input-output machines is introduced. 

OVERHEAD PROJECTOR 
INPUT-OUTPUT MACHINE transparency 
MYSTERY MACHINES worksheet 
EXAMPLES OF CONDITIONALS worksheet 
WORKSHEET A 
WORKSHEET B 

4. WIZARD (1 day) 

This activity reinforces the idea of conditional statements by having 
students create their own and begin work- on the com)?uter. 

PET computers 

WIZARD program 

OTHER MACHINES worksheet 

5. WIZARD'S WORKSHOP (2 days) 

This activity provides hands-on experiments for students to develop 
elementary functions. 

PET computers 

WIZARD program 

WIZARD'S WORKSHOP worksheets 

WIZARD'S WORKSHOP experiment cards (8)- 

CUISENAIRE RODS 

CUBES ' 
BEANS OR OTHER SMALL COUNTERS * 
SMALL PAPER CUPS (optional) 



6. THE HUMAN COMPUTER (1 or 2 days) 

An activity to give students experience in writing and checking EASY SPEAK 
statements* 

PET computer 

EASY SPEAK program / 
EASY SPEAK SUMMARY 
HUMAN COMPUTER WORKSHEET 

7. EASY SPEAK (3 or 4 days of individual work) 

The final computer activity of *this unite Students work in pairs to create 
EASY SPEAK programs, 

PET computer 

EASY SPEAK program - * 

* EASY SPEAK worksheet 



THE FABLE OP "THE WIZARDS 



Format 

Whole class 



Tiwie 

20-30 minutes at end 
of period 



Materials Needed 

overhead projector 
MASTERY TOWER 
transparency 



Background 

The idea of a fable creates a non-threatening 
fanciful situation and releases students 1 creativity 
to become involved in the tale. This fable is to be 
told tongue-in-cheek, and classroom experiences with 
the idea indicate that even the most 5 skeptical 
student gives in to. a playful involvement. The 
wizard theme is carried throughout the unit, and if 
you keep up the spirit of the idea, students will 
accept th£ playful tone quite readily. The 
end-6f-the- period timing gives students time to 
internalize the input-output ideas before actually 
working with it on their own. 



Purpose 



- To introduce students to the input-output 
concept; 



- to - have students verbalize the rules * for 
simple functions in English, 



Teacher Preparation ^ 

Before class, prepare or have ready the overhead 
transparency of the MYSTERY TOWER, which* you will 
project directly onto the chalkboard; 



4 * Activity 

Settle the class, asking them to put everything away 
because you are going to read a fable. • 

The Fable 

* 

Long ago in Transylvania, the home of 
many mysterious creatures and unusual 
people, there existed a society of, 

— wizards, In— those^days^wizards-did-many— 

extraordinary things, calling on the help 
. of magic powers. We how know that among 

these people were included what we call 
"math" wizards. Most of their wizardry 

ERIC ' - 6 "t . k 
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really came from an understanding of 
mathematics/, but , no matter, it seemed 
like magic *€o others. It turns out that 
every math teacher is a bit of a Wizard, 
a ma'th wizard, that is. One bit of 
wizardry I will .reveal to you so that 
each of-ypu-has the opportunity to become 
9 part of this society. 



(Show Mystery Tower projected on chalkboard, 
will be , writing on the board image of the tower.) 



You 



c 



^Here is an exact replica of the Wizards* 
Mystery Tower which was located in the 
Transylvanian forest. At that time, the 
secret of this tower was known only to 
the society of wizards, but, I'm going to 
show you how it works.^ 

On stormy days when lightning and thunder 
filled the skies, Wizards^ like us , would 
gather to watch what the tower would do* 

Each time a bolt of lightning struck the 
tower , it would take on a whole new 
function. Here is bne example. See' if 
you can figure out what the tower is 
doing*. 

(Here follows a series of inputs that you should take 
the time for all children to understand K Caution the 
class about calling out or telling answers because 
each person needs to develop his 'or her own skills as 
a Wizard.) " * - 

If a bird Si 

would land on the left side of the tower, 
two birds would appear on the right. 



If a leaf 
...then two leaves ... 



(Sketches of these and one or two other examples are 
quickly drawn by you on the appropriate spaces on the 
tower, e.g.? hat , nickel (g) >^Ask the class 
what would happen if a Volkswagen G^lr^ were put on 
the left. "V-U" 
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As o f ten happens in Transylvania , 
lightning struck the tower and the magic 
symbols would flash and glow. The 
wizards watched carefully for those 
opportunities, as unlocking the secrets 
of the symbols always added to their 
mathematical wizardry. 

-7- Q 



(Erase the first example from the board image.) 

Here 1 s the kind O of information they . were 
known to get from such a flash. 

(At this point, fill in the 3 or 4 pairs of spaces on « 
the tower with a very simple function (like one that 
adds 3) • Allow the students to ask about it. 



Sometimes wizards would test themselves 
(and each other) just to keep their 
sk i lis honed • They' d make lightning 
strike to change the function of the 
tower, and then try out symbols, trying 
to guess the function in as few times as 
..possible. This kept them busy on-.slow 
• days/ Try it. Give me a number, and 
I'll tell you what output the Tower would 
give. 

The third example could : be a combinatiorf of the first 
two (doubles arid adds 3) 

Now the fable is left behind, but the questioning 
continues for a new function. Have students suggest 
an input number , and give them the output. See if 
students can give the output. .The functions you 
choose should be kept simple . 

e.g.,, Subtract 1 # 
Double and add 2 
Double and subtract 1 
Triple and add five. 

When most students have unraveled each function, have 
one student describe what the tower does.- 

TEACHING NOTES * 

Experts - Some students will s^ee^ the 
relationships much faster than others. ^-Ask 
them not to describe the tower, but designate 
them as "experts" or "checkers", and check 
guesses from the class with those who believe 
they "get it". 
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Answers - Be careful to keep those who know 
from calling out the rule. Everyone needs to 
practice their wizard skills. 

Repetition - Ask several students about the 
same input. Accept answers without judgment. 
Merely ask: Does anyone have another thought? 
Does anyone agree? When all who wish to have 
expressed themselves, record the correct number. 

-8- 
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Hints - Some patterns 'become more apparent! 
when the input is rearranged in numerical] 
order. Students do not generally give inputs} 
in numerical order. After they've become!' 
familirr with the activity, suggest that? 
analyzing the numbers in order reveals useful; 
patterns. Rearrange one to demonstrate. j 



? 
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INPUT-OUTP U T MA 



Background 



Vbnnat 

Whole class and 
groups of four 



Time 

45-50 minutes, 

i 

Materials Needed 

transparency of 

MYSTERY TOWER 
overhead projector 
transparency of 

INPUT-OUTPUT 

MACHINE 
OTHER MACHINES 

worksheet 
DISCUSSION 

WORKSHEET - 

Note: OTHER MACHINES 
is a blank worksheet 
on which you or your 
students can create 
Input-Output * 
machines. 



The input-output id£a has been presented, and this 
day is used for review and to- have students use the 
ictea in a cooper ajtive groups of four setting. 
Careful introduction Jof procedures for setting up and 
working in groups pf four is pa important part of 
this activity. 



s^n 



Purpose 



- To reinfforce the input-output concepts 

/ ^ ' ; 

- To establish cooperative group work. 
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Teacher Preparation ^ 

Make copies of the OTHER MACHINES ditto with the 
tables filled in with simple/functions for students 
to solve. Some examples: multiply by 5 and add 2; 
multiply by 3 and-subfera<^ -2;^subtract input from 20 
(this will be harder). You may also* include 6he"*that 
squares the input and adds 1. You might also choose 
to leave one blank and instruct the students to 
create one of their own. ^ 

You should feel free to create additional machines 
f<?r your students. At times you could present the 
inputs in sequence;- other times, mixed up; other 
times, an odd assortment of inputs. You should try 
to use numbers „ that are easy to work with, either 
smSll numbers or larger numbers that help students 
with the underling pattern (such as 100 or 50 or 
some other multiple of 10) . . Be sure you have givea 
at least five INPUTS for each machine and do not use 
division. Repetition of examples you may have done 
earlier is acceptable. 

Review the * ideas in the u nit overvieV on groups of 
four. * . " * 
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Activity 



Review 

Divide the class into groups of four. Explain group 
procedures to the class. Project the MYSTERY TOWER 
on^the board and have students verbalize what they 
recall— about the activity. Accept all comments but 
try to draw out: 

j rim You input a number, and another one 
comes out. 

2. It does the same thing each time. 

By way of review, do another simple" example such as 
double and add two. Write in the input values from 1 
to 7. Then write in the output values one at a time 
letting students participate as before. Ask about 
other inputs such as 20, 13, 10. Repeat an earlier 
input to emphasize that the order does not affect the 
resulting output. Reinforce the idea that the 
MYSTERY TOWER does the same thing to the input each 
time. 

Turn off the overhead before erasing the numbers and 
explain that from now on, we will use a simpler 
diagram (called a table) to record the Input and 
Output. Draw a T $hape to separate the two sets of 
numbers that are still on the board. 

Using thi^^ame T ~~shape (the_ table) , go through 
another simple example (e.g. , multiply* -by—3 and 
subtract 1) , drawing from students an input number 
and recording on the table.* v ^5gx|mize student 
involvement and reinforce the no-teUJof^rule. Have 
someone verbalize the rule at the conclusion. 



Group of, Four Activity 

In groups, each student writes down an easy rule for 
others in the group to discover. Take turns. 
Whoever invented the rule makes a table to record 
guesses and outputs. When .the guessers figure put 
the rule, one records it below the table. When ail 
have tried this, have each group decide on a rule 
they'd like to present, to the rest of the class. 
Each group chooses a spokesperson to present the rule 
for others to discover. 

✓ 

After each group has presented a rule, show class the 
overhead of the INPUT-OUTPUT" MACHINE. This is the 
modern version of the MYSTERY TCWER. 



Hand out the worksheet you have prepared and. have 
students work individually on solving them either in 
class or as a homevrork assignment* 

You may want or need to provide even more examples 
for students to try, either as a whole class or in 
small groups or individually* The students should be 
encouraged to see these as a challenge and should 
feel comfortable working on them, If your class is 
having difficulty, you may want to use the OTHER 
MACHINES worksheet to give the rules , and. have them 
fill in the tables for selected inputs. 



Discussion 



Spend some time having the class give each other 
hints that, they have discovered that help guess the 
rules. This can occur after the OTHER MACHINES 
worksheet if the class is doing well or as a 
follow-up to the DISCUSSION WORKSHEET if you choose 
to use it as a summary task. 

Some points that may arise in the discussion are: 
put the terms in order; look for patterns; try a lot 
of rules for the same INPUT and check each one on 
other inputs. Let students express their ideas in 
their own terms.' Try to value each contribution 
equally. 



MYSTERY M A G IL I N E S 



Fackgrotmd 



Format 

Whole class and 
groups of four 



Time 

two class periods 



T.ie introduction in this activity of MYSTERY MACHINES 
is intended to be a prelude to the students' 
understanding of EASY SPEAK. Easy Speak is a 
symbol ic language that expresses numerical and 
algebraic ideas in a form understood by several 
computer programs fn this curriculum, The Strategies 
Unit and the Business Unit fol-low_up what the 
students learn here* Easy Speak "sentences" are a 
sequence of statements that create input-output 
machines and are written in the form; 



Materials Needed 
overhead projector 
INPUT-OUTPUT MACHINE 
^transparency 
MYSTERY MACHINES 

worksheet 
EASY SPEAK summary 

for reference 
EXAMPLES OF 

COJDITICNALS 

worksheet 
WORKSHEET A 
WORKSHEET B 



CONDITION; 
0UTPUT= 

The "CONDITION" portion will usually be a statement 
involving the input to the machine and the "OUTPUT" 
portion will describe the resulting output. 

Examples: 

1. CONDITION; INPUT<6 
OUTPUMiPUT 

2. CONDITION; INPUT>=6 
OUTPUT=10 

* 

1. CONDITION: EVEN (INPUT) 
0UTPUT=INPUT+1 

2. CONDITION: ODD (INPUT) 
OUTPUT=20-INPUT 



1. CONDITION : FACT ( 3 , INPUT) 
OUTPUTS 1 

2. CONDITION :NOT( FACT (3, INPUT)) 
0UTPUT=2* INPUT 



The richness o£ EASY SPEAK provides a medium for the 
students' understanding and expression of many 
mathematical ideas, several of which appear in this 
activity. 



Purpose 

- To introduce conditional statements using < 
(less than), > (greater t-han) , < (less 
than or equal to) , £ (greater than or 
equal to) , <> (not equal to) , EVEN, ODD, 
FACT, and NOT. 



Teacher Preparation 

Run off copies of the MYSTERY MACHINES worksheet. 
Run off copies of the EXAMPLES OF CONDITIONALS 
worksheet. 

Review the descriptions of < (less than) , > (greater 
than) , < (less than or equal to) , [>] (greater than 
or equal_to) , <> (not equal to) , EVEN, ODD, FACT, and 
NOT in your EASY--SKEAK summary. 
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Activity 

Divide the class into new groups of four, 
over the worksheet from last time. 



Quickly go 



Project the INPUT-OUTPUT MACHINE transparency on the 
board (or draw a facsimile) . 

Suggest to the class that today 1 s more modern 
machines can do what the MYSTERY TOWER did and much 
more. Copy the following tables one at a time onto 
the projection of the transparency. You may want to 
present the output values one at a time to allow 
students more opportunity to discover the difference 
between these conditional machines and others they 
have done previously. Students should be encouraged 
to express the patterns and conditions they discover 
in their own terms. You may want to create 
additional examples of your own for each of the three 
types presented in the diagram. -An EASY 5 SPEAK form 
for these tables is in the "Background" section. 

Take whatever time you need to cover each type of 
example, students should see a complete and orderly 
table in orSer to detect the patterns. 

Tell class that fortunately the conditions EVEN, ODD, 
FACT (and several other EASY SPEAK conditions) 
require the use of NATURAL NUMBERS, which are the 
numbers we use to count the people in this room (1, 
2, 3, etc . .) . s 

You may want to try more than one of each of the 
three types (EVEN, FACT, <) , but keep the OUTPUT very 
simple. Descriptions from students will be in 
English, and you should begin at this point using the 
EASY SPEAK notation so they will see it written 
before they have to write it. 

Try other examples of your own. Have the students 
suggest the inputs .one at a time. Ask how many 
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inputs they think they will need to figure out your 
mystery machine* There is no right answer to this 
question, 

/ 

.Review with then if necessary, /the meaning of EVEN, 
ODD, " FACT, <, <, >, >• 



Group of Four Activity 

You will give them the EXAMPLES OF CONDITIONALS 
worksheet , t and their task is to match a description 
with a table. Ther6 is one table and one discription 
that does not .match. The group should agree 
completely on their choices. 

Give -them the MYSTERY MACHINES worksheet to complete 
for homework. "-- 

Worksheets A and B can be used for additional 
in-class work or homework as needed after students^ 
have completed the group activity. 



Discussion 

Discussion of what students tried and how they worked 
together in groups is critical to bring in the 
students who are having difficulty and to support 
strategies that other students have discovered. 

The EXAMPLES OF CONDITIONALS worksheet is an 
"excellent opportunity to discuss the syntax of the 
EASY SPEAK statements they have seen. In particular, 
it is a time to clarify the use of NOT as an EASY 
SPEAK statement. " *' 

Worksheet B provides the opportunity to seek out 
different descriptions. Table B on this worksheet is 
really ambiguous as to where the two different 
conditions take effect. All that you can tell is 
that somewhere around the numbers 8, 9, 10, 11 there 
is a change (e.g., <=8, or <9 or <10 or <11 will work 
as a condition on the smaller inputs) . For the 
larger inputs, >=11, >10, >9, and >8 will satisfy the 
table. 
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Background 



Format 

Whole class followed 
by groups of four* 
Some groups on 
computers. 



Time 

45-50 minutes. 
The computer part 
will extend into the 
next two days. 



Materials Needed 

OTHER MACHINES 

worksheet 
WIZARD* program 
PET computers 



It is important to go over the MYSTERY MACHINES 
worksheet carefully to insure that students 
understand conditional input-output machines and the 
language used to express those conditions. Students 
need not be able to write EASY SPEAK statements at 
this point, even though some of them will. The main 
goal here is the understanding and recognition of 
conditional in-out tables. The second half of this 
period is f o r students to create their own 
conditional machines or to decode the machines 
presented to them by the WIZARD program. Students 
will earn wizard rankings and collect treasures for 
each machine successfully completed. 

Individual students will be asked to select the level 
of difficulty, but the group as a whole .earns a 
ranking and collects the treasures. 

Some Notes on the Rules the Wizard Program Creates 

The number requested tor level of difficulty (1-4) 
sets one of four level?. The two-digit seed number 
produces unique rules, unique "locations", cind ten 
possible treasures. 



Level 1 and 2 use linear rules (y=A*INPUTfB) and 
rules involving constants. Level 2 also, uses FACTOR 
as a condition. Level 3 adds the possibility of 
negative numbers in the rule. Level 4 incorporates 
the possibility of simple quadratic (second degree 
rules) (Y=A*INPUT)2+B) . Since the rules are created 
randomly, the higher numbers within a level are not 
necessarily in order of increasing difficulty (that 
is to say that seed number of 86 is not necessarily 
more complex than 26) . 

The two types of scoring are the treasures earned and 
a Wizard ranking: NOVICE WIZARD, JUNIOR WIZARD, 
WIZARD, MASTER WIZARD. The treasures are earned when 
a machine is solved. The Wizard ranking is based on 
the number of machines tried, the efficiency of 
getting the solution, and the levels attempted. 
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Purpose . 



- To further develop students * informal 
understanding* and use of conditional 
statements using EVEN, ODD, FACT, < (less 
than), > (greater than), <>> (not equal), 
< (less than .or equal to) , and > 
* (greater than or equal to) 



Teacher Preparation 

Run off two copies of OTHER MACHINES worksheet for 
each student. Load WIZARD on both computers. 



Activity 

Have students sit together in their previous groups. 
Poll the groups about the MYSTERY MACHINES worksheet 
of the previous day. Which were easy? Which were 
hard? Try to draw out different descriptions for the 
same machine. In some cases, you may have to give 
another description to show that more than one answer 
is possible. Pay particular attention to the 
conditional statements- necessary to specify the rule. 

Example: FOR MACHINE B, If the ixipS: is even, 
the output is double the input. If. the input 
-is^odd, the putput is eleven times the input. 
• Another ^description might be * if. the input is 
even, the output equals input plus input. If 
the input is odd,_Jthe output is ten times the 
input plus the input. 

Machines A, E, and F are similar in that there 
is a single rule possible for all input. Try 
to develop the idea of "When does the rule 
work?" The sought-after response that matches 
the EASY SPEAK language is "ALWAYS" . 



Group of Four Activity 

Hand out two copies of the OTHER MACHINES worksheet 
to each student . . Have them label one, "COMPUTER 
MACHINES" and the other, "GROUP. MACHINES" • There are 
two assignments which are to be completed over the 
n*xt few days. 
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Assignment 1. Each group is to work together to 
create four "interesting" machines that involve 
conditional statements* One of these will be shared 
with the class at a later time* 

Assignment 2. Each group is to write descriptions 
and record the tables for the four most interesting 
machines that they solved from the WIZARD program. 
They should be sure to record the difficulty, level 
and the seed nunber so that the rest of the class may 
try them* 

Explain that the groups will be working together for 
the n^xt two days. In that time, each group will 
have time scheduled on the computer to complete 
Assignment 2_, . Two grqups should fc start on the 
computer assignment now and complete Assignment 1 
tomortfoV. post a schedule of times, Each group will 
need about half a period of computer time. The 
computer activity for the remaining groups will 
continue while most of the- class works on the next 
activity, WIZARD'S WORKSHOP. 
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WIZARD'S WORKSHOP 



Backgrpund 



format 

Entire class working 
in modified groups 
of four 



Time 

TVo class periods. 



Materials Needed 
3 or 4 sets of 

Cuisenaire Rods 
100 cubes 
100 beans or 

small counters 
10-20 small paper 

cups (optional) 
PET computers 
WIZARD program 
WIZARD'S WORKSHOP 

worksheets 
WIZARD'S WORKSHOP 

experiments 

Note: There are eight 
different 
experiments. 



This' activity presents eight experiments for students 
to create numerical patterns and discover the 
input-output rules. Six of the eight also provide a 
follow-up experiment, "FOR MASTER WIZARDS" , which 
uses the same materials* The materials used are 
important to reinforce the input-output concept and 
give the students a firsthand experience in creating 
these "real world" input-output patterns.' Most of 
the materials are readily available* The Cuisenaire 
Rods may be obtained from other teachers or from a 
local elementary- school or resource center for the* 
short time you will „ need triem. The tvx> days allotted 
for this activity gives time for the remaining groups 
to work with the WIZARD program. 



Purpose 



- To provide concrete experiences creating and 
solving simple functions. 



Teacher Preparation. 

Run off back-to-back copies of WIZARD' S WORKSHOP 
worksheets. Two per student should suffice. 

Run off 3 copies of each of the WIZARD'S WORKSHOP 
experiments. These pages are designed to allow you 
to ditto them pnto 5x8 cards. Otherwise , you could 
run them off on regular paper , and then, mount each 
one on card stock. 



Arrange the materials on a table or counter with the 
appropriate experiment cards nearby. 



2 X 



0 
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Activity 

Have students sit together in their groups. 

Remind the class of the schedule for the remaining 
groups to complete the WIZARD program. The groups 
that ditf Assignment 2 last iime should complete 
Assignment 1 before going on to the experiments. 

describe the Wizard 1 s Wbrkshop process, showing them 
che experiment cards and the worksheets. Explain 
that they will be working in pairs from their groups 
and that they should procede at their own pace, being 
sure to record the results for each experiment* 
Students may have a tendency to speed through the 
experiments without checking their conclusions on 
larger input numbers. The criteria quest ion-for-eaeh— 
experiment is marked with an asterisk and intended to 
check students 7 grasp of the underlying rule. You 
chould circulate while the students work and watch 
for instances of premature conclusions. You may 
choose to present all eight experiments at once or 
hold back half of them to be introduced at the 
beginning of the next day. Students may not have * 
time to complete every experiment. 

Point out that some experiment cards have two 
activities: a regular experiment and a Master 
Wizard's Experiment. Each experiment has a criteria 
question that is starred (*) , and that the' same 
question applies to the experiment for Master Wizards 
at the bottom of most cards. 

The experiments are designed to be self-explanatory, 
but it would be useful to have the titles listed on 
the chalkboard so students can decide whibh to do 
next while still seated. 

Answer questions. Ask pairs to decide which 
experiment they will try first, then go to work. 
(What happens if not enough materials are available? 
Discuss that with the class.) 

Circulate while students are working. Interrupt work 
before the .period ends- so students have time to 
return $11 materials,. They .save, their worksheets* 

This entire procedure is repeated the following day. 
Some time will probably be available at the end of 
the next day to summarize, share results, and give 
feedback • 

2c 
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Discussion 



The results of the different experiments can be 
discussed with the whole class,, Particular attention 
should be paid to using the materials to check table 
entries. Two of the master wizard experiments/ (BEANS 
AND WAYS and STAMPING RODS) are quite difficult in 
that they involve complicated rules. The discussion 
of the two "Group of Four" worksheets should follow 
from the presentation of student's work. .Have a 
group present their "best 11 conditional machine for, 
the whole class to attempt. Have them present enough 
of the table for the other groups to work— on. Do 
this several times. It is not necessary to have 
every group present at this time. Have the groups 
describe how they "got it". You could also at this 
point write EASY SPEAK descriptions of those rules 
presented eithe r r as a whole class or in small 
groups. Follow a similar procedure for interesting 
solved examples from the WIZARD program. If you 
don't insist that they use solved examples, the class 
may be involved in mathematics above their level. 



THE HUMAN COMPUTER 



Background 



Format 

Whole class and 
groups of four 



Time 

Two class periods 



Having been introduced to EASY SPEAK statements* in 
the MYSTERY MACHINES activity, students will now 
create their own mystery machines. * This HUMAN 
* COMPUTER activity provides students with the 
experience- v of writing conditional statements in EASY 
SPEAK* . Students will need to write EASY SPEAK 
statements in order to create machines on the 
concluding ^computer activity for this unit. Writing 
conditional statements is a^so needed for other units 
in this project. 



Materials Needed 
PfiT computers 
EASY SPEAK program 
EASY SPEAK summary 
HUMAN COMPUTER 
worksheet 



Purpose 



- To practice writing conditional statements in 

the syntax of the EASY SPEAK language. 

- T %f2t^ conditional 

- To introduce the EASY SPEAK summary page and 

the EASY SPEAK program. 



Teapher Preparation 

Review the EASY SPEAK statements used so far. Load 
the EASY SPEAK program on both computers. 

Run off copies of the HUMAN COMPUTER worksheet and 
the EASY SPEAK summary page for each student. 

Load EASY SPEAK program into both computers. 



Activity 

Review 

Divide the class into groups of four* Have students 
take put the EXAMPLES OF CONDITIONALS worksheet from 
their folders. Tell them that the exact form in 
which the conditional statements are written is 
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important in order to have the computer understand. 
As a check , you may have students write the 
Second itional* statements for the unmatched table (table 
D) , or you can write the description of any other 
tables as a group. 

* • 

Explain that the computer understands EASY SPEAK but 
• that each statement must be very carefully written*. 
Two rules that have been assumed up to now are 
important to point out: 

o 

1. The machine must know what to do with ANY 
output. 

2. The machine must have only ONE output for a 
given input. 

Write these two rules on the board and explainr-to the 
class that the intent of the two rules is that there 
• will, be, exactly CNE input for MUY input. Examples of 
conditions that do not satisfy these two rules would 
help demonstrate their meaning. Picking an input for 
which the output is gmbiguous will demonstrate to the 
class why these examples violate a rule. 

.Scamples of Improper Machines: 

1 .CONDITIO?: INPUT<10 
OUTPUT= INPUT + 2 

" • % 2. CONDITION: INPUT>5 
OUTPUT= INPUT +6 



or - - 

1 . CONDITION : FACT ( 3 , INPUT) 
OUTPUT= INPUT + 1 

2. CONDITION: FACT (6, INPUT) 
OUTPUT= Input + 4 



or 

1 .CONDITION:^ INPUT>9 
OUTPUT= 8 



2. CONDITION: EVEN (INPUT) 
OUTPUT= INPUT 



Group of Four Activity 



Each student individually completes the HUMAN 
COMPUTER worksheet. Questions one and two can be 
checked by the group or corrected later by the 
teacher. Question three is to be used by the human 
computer. Each student will have a turn to be the 
human computer and will give output requested by the 
other three. Their task will be to discover what 
EASY SPEAK statements the computer is using. When 
they think they have the same statements, they should 
write them down and then check them with the human 
computer. if they are not exactly the same, the 
whole groups should check to see if- the~new~statements 
do exactly the same thing. If they did not correctly 
solve the human computers problem, mark it with a 
star. These starred problems may . be looked at 
separately or used in the closing discussion. 

Hand out copies of the EASY SPEAK summary and have 
students go through with you marking those* items that 
have been used so far. Tell them that the EASY SPEAK 
program can use all of them, but they must be written 
carefully for the computer to understand. 



Demonstrate Easy Speak Program 

The last ten minutes of- class, or during the next 
class, write a simple EASY SPEAK machine on the 
chalkboard . Have the class gather around the 
computer (a student may be designated to operate the 
second computer) . Demonstrate the EASY SPEAR program 
options to the class. Note the choices available. 
Select "CREATE A MACHINE" and type in the machine 
from the chalkboard. As you type in the* CONDITION 
v.nd then the OUTPUT, point out the blinking "T* which' 
appears after you press RETUFN. This indicates the 
machine is thinking about your statement. Tell the 
class there is a maximum of fi^e statements allowed. 
When you have completed your machine, you should 
return to the menu. Select "RUN THE MACHINE" and try 
several INPUTS. If your machine is .not carefully 
constructed, the computer will tell you when it comes 
upon a problem. If a problem exists in your program, 
you will need to return to the MENU and select tAe 
".EDIT THE MACHINE" option and correct the error. You' 
can change the statement the cursor is indicating or 
erase the statement completely with "Shift?" . 



Discussion 



As time permits, probably the second day of this 
activity, discuss the human computer activity. You 
may correct the worksheet at this time. A good 
discussion point would follow from the human computer 
machines thac were not correctly solved (they were 
marked with a star) . This is also a chance to 
explore the use of other EASY SPEAK statements from 
the SUMMARY SHEET. 
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Format 

Whole class and 
individual group 
computer time 



EASY SPEAK 
Background 

This is the concluding activity for this unit* The 
use of the EASY SPEAK program and the EASY SPEAK 
SUMMARY will permit students working in pairs to 
create mystery machines as well as having than try 
mystery machines created by students in other classes. 



Time 

half a period as a 
group c and several 
days of individual 
computer time 



Materials Needed 

PET computers 
EASY SPEAK program 
EASY SPEAK worksheet 



Purpose 



- To have students create their own' conditinal 

INPUT-OUTPUT machines using the EASY 
SPEAK program. 

- To check students' understanding of the 

syntax of the EASY SPEAK language. 

- To have students save and retrieve EASY SPEAK 

programs through the NETWORK. 



Teacher Preparation 

Run off copies of " EASY SPEAK WORKSHEET for each 
student 

Load the EASY SPEAK program into both computers. 
Prepare four problems to present to the class as a 
review. Two of these should be EASY SPEAK 
statements; students will construct a table. The 
other two should be tables; students will write the 
EASY SPEAK statements. Preselect a machine from the 
Network if you are going to demonstrate NETWORK EASY 
SPEAK. 

EXAMPLES 

1 . CONDITION : FACT (6 , INPUT) 
OUTPUT = 100-INPUT 

2 . CONDITION : NOT ( FACT (<5 , INPUT) ) 
OUTPUT = INPUTH-7 

1. CONDITION: (EVEN (INPUT) ) AND (INPUT<10) 

OUTPUT = 2*INPUT 
2* CONDITION: ' (ODD(INPUT) ) AND (INPUTX10) 

OUTPUT = 3*INPUT 
3.. CONDITION: INPUT>=10 

OUTPUT = 10 
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Examples of tables you could use are in the margin* 



INPUT 1 


OUTPUT 


1 
J 




1» 


3 


5 


k 


6 


19 


10 


31 


11 


3* 


12 


36 


25. 


76 


INPUT 


OUTPUT 


8 


65 


6 


*»9 


7 


56 


5 


J>0 


3 


24 


9 


72 


1 


8 


2 


17 


k 


33 
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Set up a schedule for computer use that will start 
halfway through this period- Pairs of students will 
need to work for about 20 minutes on the computer 
using the EASY SPEAK program. * 

NOTE: If students* will be saving or retrieving 
programs, they. will need to work on the computer 
that is connected to the NETWORK. 

Prepare material from the regular curriculum for thei 
class to work on after completing the EASY SPEAK 
WORKSHEET. 



Activities 
Review 

Begin by asking the class to recall as many items from 
the EASY SPEAK SUMMARY as they can. Write the list on 
the blackboard. 

Present your first prepared EASY SPEAK statements and 
ask the class to give you the output for input that 
you select . Maximize involvement by asking several 
people about the same input. 

The second example is not difficult, but the three 
cond i t i ons shoul d be checked with the class to show 
that there is exactly one output for any input. If 
you plan to demonstrate the NETWORK retrieval of an 
EASY SPEAK program, select one before class that you 
feel the class can solve. Some NETWORK programs are 
complex and should be avoided as first examples. 

Present your * prepared tables. Students may want to 
suggest more inputs to help them determine what the 
EASY SPEAK statements might be. Have several students 
write the EASY SPEAK statements on the board. Ask the 
other students to check the table against the 
statements . Seek out .different statements where 
possible. # 



Using Easy Speak 

Type in one student 1 s statements to demonstrate, how to 
begins the EASY SPEAK program. After typing it in, 
return to the menu and select "RUN THE MACHINE". (The 
Demonstrate Easy Speak Program section of the previous 



activity describes some details about, running and 
editing your machines.) Ask about some larger 
numbers # There is a five statement limit for EASY 
SPEAK programs* This will generally not be a problem 
for students' work. 



Network Easy Speak 

As a further example, use the computer connected, to 
the NETWORK to retrieve your pre-selected machine. 
Explain to the class that other students have saved 
their EASY SPEAK machines and that, you will- now pick 
one for them to try, 

select* "LOAD A MACHINE" and follow the procedures to 
enter the machine you have pre-selected from the 
tfETWORK. Select "RUN THE MACHINE" and have students 
as a whole A *or in smal?; groups work out the selected 
machine. Let them suggest inputs and have them, write 
out EASY SPEAK statements when they think they, have 
it. You could then select either "TEST YOURSELF ON 
THE MACHINE" or "EDIT THE MACHINE" to* check their 
results, 

NOTE: A list of "Network Programs^ to Try" could 
be posted as a starter _for students. Students 
may add to the list if they write or find one 
they think is interesting, 

/* 

Set the schedule for computer use and have the rest of 
the class begin the EASY SPEAK worksheet. 



Discussion 

After each pair of students has had a chance to work 
through the EASY SPEAK program to write programs of 
their own, take some time to have students present 
examples of their work from the worksheet, or examples 
they select from the NETWORK. ~ Ifoe "discussion might 
now extend to the possible uses of additional EASY 
SPEAK statements, which can be found* on the EASY SPEAK 
SUMMARY sheet. 
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INPUT- OUTPUT 'MACHINE 




INPUT 



OUT PUT 




33 
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OTHER MACHINES 



"IN 



OUT 



A L 



\ r 



IN 



OUT 



IN OUT 



IN OUT 



INPUT - OUTPUT DISCUSSION WORKSHEET 



Do these examples: 
A 



8 



INPUT " 


OUTPUT 


INPUT 


OUTPUT 




INPUT* 


OUTPUT 


1 


2 i 


4 


11 




3 


13 


2 


5 


6 


*15 




2 




3 


8 ' 


2 


7 




i 6 


25 


4 


.11 


1 


5 


> 


8 


I 33 


5 




3 


9 




• 

10 


41 


6 


17 


5 


13 




1 


5 


7 


20 


10 


23 




4 


17 


The rule is: 


The rule is: 




The rule is: 



Make a list of hints you can give someone (without telling the answer) to help them 
discover these rules. 



- to 



List other hints you know about. 



* * 
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MYSTERY MACHINES 



L 



MACHINE 



r I 

[ MACHINE C 




IN 


, OUT 


I. 


7 


2 


9 


3 


11 


4 


13 


5 


15 


6 


17 



IN 


L OUT 


1 • 


2 


2 


4 


■ 3^ 


6 


"4 


24 


5 


30 


6 


• 36 


IN 


. OUT- 


5 


15 


6 


14 


7 


13 


• 8 


12 


9 


11 


10 


10 



|B ^ ^mm i mi 



MACHINE B 



IN 


OUT 


1 


2 


2 


22 


3 


6 


4 


44 


5 


10 ' 


6 


66 



MACHINE D 



A 



IN 1 


| CUT 


7 


5 


8 


5 


9 


5 


10 


13 


11- 


13 


12 


13 







MACHINE F 



IN , 


OUT 


3 


a 


4 


li 


5 . 


14 


6 


17 


7 


20 


8 


23. 



' 36 

9 



EXAMPLES OF CONDITIONALS 



Listed below are six sets of conditional statements in EASY SPEAK and. six 
tables. In the spaces below, write the letter of the table that matches the 
numbered statements. One of the six does not match. 



Ill, 



V. 



II. 



IV. 



VI. 



I. 1. CONDITION: INPUT > 
OUTPUT 3 20- INPUT. 

2. CONDITION: INPUT - 6 ~ 
OUTPUT- 2*INPUT-1 • 

II. 1. CONDITION: EVEN (INPUT)' 
OUTPUT- 8 

2. CONDITION: ODD( INPUT) 
OUTPUT- INPUT+5 



IV. 1. CONDITION: EVEN( INPUT) 
OUTPUT- INPUT-1 

2. CONDITION: -ODD( INPUT) 
. OUTPUT- 13-INPUT 

V. 1. CONDITION: INPUT < 6 
OUTPUT- 3*INPUT 

2. CONDITION: INPUT 2" 6 
OUTPUT- INPUT*INPUT 



III. 1. CONDITION: FACT(3, INPUT) 
OUTPUT- INPUT* INPUT 
2. CONDITION: NOT FACT(3, INPUT) 
OUTPUT- 3*INPUT 

t B ' C 



VI. 1. CONDITION: FACT(5, INPUT) 
• OUTPUT- 2MNPUT+2 
■2. CONDITION: N0T(FACT(5,INPUT)) 
OUTPUT- INPUT+7 



D 



INPUT OUTPUT INPUT OUTPUT INPUT OUTPUT INPUT OUTPUT INPUT OUTPUT INPUT OUTPUT 



3 
k 

5 

6 

7 
8 
9 

.10 
11 



5 

7 

9 

11 

13 

12 

11 

10 

9 



V 
2 

3 
k 

5 
6 

7 
8 
9 



3 
6 

9 
12 

15 
36 
21 
2^ 
81 



2 

3 
k 

5 
6 

7 
8 
9 

10 



8 
8 
8 

10 
8 
12 
8 

8 



5 
6 

7 

8 

9 

10 

11 

12 



8 

10 
12 
Ik 
16 
13 
<\k 

15 

16 



2 
6 
1 
k 

5 
9 
3 
8 
7 



1 

5 * 
12 

3 
8 
k 

10 
7 

6 s 



1 
2 

3 
k 

5 
6 

7 
8 

9 



8 
9 

10 
11 
\z 

13 
\k 

15 
16 
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WORKSHEE T A 



Complete- the table for each of the following EASY SPEAK programs. ' 



A. 1. "CONDITION: ALWAYS 
OUTPUT= 3*INPUT+5 
INPUT OUTPUT 



1 

2 

3 
k 

5 
6 
7 
8 



B. 1. CONDITION: EVEN(OUTPUT) 
OUTPUTi 2* INPUT- 3 
2. CONDITION: 1 ODD(INPUT) 
OUTPUT= INPUT+13 



INPUT 


OUTPUT 


6 


*• 


7 




8 




9 




10 




t1 




12 




13 





1. CONDITION: INPUT < 6 
OUTPUT= 30- INPUT 

2. CONDITION: INPUT > 6 
OUTPUT= INPUT-** 

3. CONDITION: INPUT=6 
OUTPUT= INPUT* INPUT 
INPUT . OUTPUT 

8 

3 
6 

5 
9 
2 

15 



D. A 1. CONDITION: FACT(3, INPUT) 
OUTPUT= 1- 
2. CONDITION: N0T(FACT(3, INPUT)) 
OUTPUT= 5*INPUT+1 
INPUT OUTPUT 



• 1 
2 

3 
k 

5 
6 

7 
8 
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IV- 



WORKSHEET B 



Write an EASY SPEAK program for each table. 



1. 



2. 



CONDITION': 
OUTPUT= 
CONDITION: 
OUTPUT= 



(HINT: You 


can use < , < - , 


> , >= , ODD,, EVEN, FACT, NOT, +, 


) 


A. INPUT 


OUTPUT 


B. INPUT 


OUTPUT 


k 


6 a 


5 


21 


5 


8 


6 


26 


6 


10 


7 • 


' 31 


7 


12 


8 


36 


8 • 


17 


11 


30 


9 


16 


12 


33 


10 


15 


13 


36 


20 


5 


25 


72 



1. 



CONDITION: 
OUTPUT= 
CONDITION: 
JTPUTs 




INPUT 


OUTPUT 


1 


29 


2 


28 


5 


15 


6 


2^ 


7 


23 


12 


18 


20 


60 


2^ 


6 


25 


75 



D. 



INPUT 


OUTPUT 


11 


11 1 


7 


11 


13 


11 


k 


10 


10 


28 


3 


11 


2 


If 


8* * 


22 


6 


16 



CONDITION: 
OUTPUT= 
CONDITION: 
OUTPUTs 



3d 



1. CONDITION: 
OUTPUTs 

2. CONDITION: 
a /OUTPUT^ 
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EXPERIMENT TITLE 



WIZARD' § WORKSHOP 



TABLE 



DESCRIPTION 
OF TABLE 



/ 



♦CRITERIA QUESTION 
FOR YOU GET 



EXPERIMENT TITLE 



TABLE 



DESCRIPTION 
OF TABLE 



♦CRITERIA QUESTION 
FOR YOU GET 



EXPERIMENT TITLE 



TABLE 



DESCRIPTION 
OF TABLE . 



♦CRITERIA QUESTION 

FOR YOU GET 



EXPERIMENT TITLE 



TABLE 



DESCRIPTION 
OF TABLE 



♦CRITERIA QUESTION 

FOR YOU GET 
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WIZARD 1 S WORKSHOP 



CUBE TOWER PAINTING 



With the first tower 
there .ar* 5* squares 
to paint. 



DON'T 

"COUNT , 
TOE 

BOTTOM 
SQUARE* 



With the second tower 
there are 9 squares 
to paint. 



MATERIALS s 

10 or 12 cubesP^ 
» 

How many squares for 
the 3rd tower? 4th? 
Make a table. 



(4 sides and the top 





♦Suppose you built the 99th tower. 
Suppose you had to paint each square on the tower, 
How many squares would you have to paint? 

FOR MASTER WIZARDS 

The first tower is 'the sane, 
but fpr each succeeding toyer . 
you add two, cubes' to be painted. 







. 0 






9) 






1.1 





3 £? 



WIZARD'S WORKSHOP 



BEANS AND WAYS 



Lr 




With just 
there are 
to put it 
the contai 


1 bean, 

2 ways 
into 
mers. 








With 2 beans f you can put 
then into the containers 
3 different ways. 



MATERIALS: 
10 or 12 beans 
(or counters) 
2 cups or squares 
drawn on paper 



How many ways for 
3 beans? 4? Make 
a table. 



♦Suppose you had 50 beans. 
How many ways could you 
put the 50 beans in the 
containers? 





.Way's 


0 








ft 









FOR MASTER WIZARDS 
All is* the same, except that there are three containers. 



WIZARD'S WORKSHOP 



SECTIONS ON A LINE 



With one point, you 
would have 2 sections 



With 2 points, there 
would be 3 sections. 

c 



Continue making (Joints 
'and counting sections. 















*If you put 20 points on a line segment, how many sections would you count? 
FOR MASTER WIZARDS 

Instead of points, you draw circles (the sides don't touch). 
How many sections would yqu count? 



not allowed 



okay^ 






WIZARD'S WORKSHOP 



STAMPING RODS MATERIALS 
t 1 rod of each color 

Suppose the white Cuisenaire rod were a rubber stamp. 
It would stamp a shape like this: Q How many stamps would- it take to. cover each 
of the other rods? 

CONTINUE THE STAMPING* 
ROD ' STAMPS 



The white rod 
takes 6 stamps, 




(Don't forget 
the bottom! ) 



The red rod 
takes 10 stamps. 



1- white 

2- red 

3- light gr« 

4- purple 

5 - yellow 

6 - dark gr# 

7- black 

8- brown 

9- blua 

10- orange 



*Sup % pose you had a rod 32 units long; 
how many stamps? 
FOR MASTER WIZARDS: 

Instead of starting with the next rod, you pretend 
to glue it to the previous rod (s): 

& 

,C $TAMp1 IH STAMPS 



6 
10 



prexena _ 

d3 dH 



ERIC 



I st -nd 



3rd 



42 



etc. 



WIZARD'S WORKSHOP 



A ROW OF TRIANGLES 

KITH 1 TRIANGLE, 
SHE PERIMETER 
IS 3 UNITS. 



WITH 2 TRIANGLES, 
THE PERIMETER IS ; 
4 UNITS, 



WITH 3 TRIANGLES, CONTINUE THE 
THE PERIMETER IS EXPERIMENT* 
5 -UNITS. 



Tri- --peri- 
arigles . meters 



T 
TT 



*I£ you lined up. 100 equilateral triangles in a row 

what would the perimeter measure? \ ^ f\f\^f\ SL f\ < ^\ } 

r 

FOR MASTER WIZARDS t ■ " * f 

Instead of triangles, use regular hexagons. 



000 



A ROW OF - SQOAPES 

WITH 1 SQUARE-, 
THE PERIMETER 
IS 4 UNITS. 



WIZARD'S WORKSHOP 



WITH 2 SQUARES, 
THE PERIMETER 
IS 6 UNITS. 



r 4- " 


i — t — | 


» 




— »— 


— 



*If you lined up 100 squares in a row ( 
perimeter measure? 



c 



WITH 3 -SQUARES, 
THE PERIMETER IS 
8 UNITS. 



r*~i 


| — « — . 


— I — i 










— f- 


— f— 



CONTINUE THE 
EXPERIMENT. 

Squares Perimeter 
1 <—& — - 



) # what would the 



FOR MASTER WIZARDS t 



Instead of .squares, use pentagons* 



WIZARD'S WORKSHOP 



SQUARES FROM SQUARES 



" | For a s'quare 
• with side 1, 
i the perimeter 
' is 4. 



a 



For a side of 
2, the peri- 
meter is 8. 



For a side 
of 3, it's 
12. 



•FOR A SQUARE OF SIDE k7, WHAT IS THE PERIMETER? 
•FOR MASTER WIZARDS 



Continue the 
experiment. 


J— 




1 6 

















INSTEAD OF FINDING THE PERIMETER FOR EACH SIZE SQUARE, FIND THE AREA. 



WIZARD'S WORKSHOP 

PAPER FOLDING 



With 1 fold, 
you would have 
2 sec c ions. 



13 



With. 2 folds, 
you'd have 4 
sections. • 




(5>£??OLD £ACb Time) 



•Make a table. Con- 


tinue the folding. 


folds 


SECTIONS 


. 0 




' % 









•IF IT WERE POSSIBLE TO FOLD THE PAPER 11 TIMES, HOW MANY SECTIONS WOULD 
YOU HAVE? 



EASY SPEAK SUMMARY 



/ 
t 



addition 
subtraction 
multiplication 
division. 
' exponentiation 



< 
> 
<- 

> s 

< > 



equals 

less than 

greater than. 

less than or equal to 

greater than or equal to 

not equal to 



ODD 

EVEN 

ALWAYS 



ODD (INPUT) . 
EVEN (INPUT) 

Is always true. 



NEVER 



Is never true, 



FACT 
NOT 

AND 

OR 



FACT(5, INPUT) 

Will be true if 5 is a factor of the input. 
NOT( INPUT < 10) 

Change the truth value of the statement. 
<5 .INPUT) AND (EVEN(INPUT)) 

(EVEN(INPUT)) OR (5 < INPUT) 



SQR 



INT 



RMD 

MAXIMUM 



SQR(9) SQR( INPUT) 

SQR(9) gives 3, the square root of 9. 

INT(*f.2) INT (INPUT/5) 

imih.Z) gives the value h 

BMD(8,3) 

RMD(8,3) gives 2, the remainder of 8t3. 
MAXIMUM( INPUT, 10) 



MINIMUM 



MINIMUM(INPUT*3,20) ( 



LCM^ 

CCD 

RANDOM 



9 
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LCM(**,6) LCM( INPUT, 2*0 

LCM(^,6) gives 12, the least common multiple of 4 and 6. 
GCD(INPUT,5) GCD(20,8) 

GCD(20,8) gives h t the greatest common divisor of 20 and 8. 

RAND0M(2,10) RANDOM (INPUT, 20) 
RAND0M(2,10) will randomly pick either 
2, 3, ^ 5. 6, 7, 8, 9. or 10. 



45 



HUMAN COMPUTER WORKSHEET 



COMPLETE THE TABLE. * INPUT OUTPUT 



1. CONDITION: FACT(4, INPUT) 


3 




OUTPUT » INPUT - 3 


4 




2. CONDITION: NOT(FACT(4, INPUT)) 


7 




« 






OUTPUT •* 25 - INPUT 


12 






6 




• 


8 




• 


20 






9 






16 




WRITE THE EASY SPEAK STATEMENTS 


• 

INPUT 


OUTPUT 


FOR THE GIVEN TABLE. 


3 


7 <. 


1. CONDITION: 


4 


6 


OUTPUT - 


5 


11 


2. CONDITION: 


6 


8 


OUTPUT ■ 


7 


15 




8 


10 




9 


19 




10 


12 




11 


23 



WRITE EASY SPEAK STATEMENTS FOR A MACHINE FOR YOUR GROUP TO TRY AND DISCOVER. 
DO NOT USE ANY NUMBERS LARGER THAN 10 IN YOUR STATEMENTS . 

1. CONDITION: 
OUTPUT - 

2. CONDITION: 

OUTPUT - ' . _ 

4b 



EASY SPEAK WORKSHEET 



Write EASY SPEAK statements of your own that use the items given. (You 
may use additional items 4 Write your statements carefully and neatlv. 
using the correct EASY SPEAK form. y * 



„ I. This machine should use: 
+, EVEN, 8, * 



1. CONDITION: 
0UTPUT= 



2. CONDITION:, 
OUTPUT- 



II. This machine should use: 

FACTOR, 20- INPUT, 11, * 



1. CONDITION:, 
OUTPUT* 



2. CONDITION:, 
OUTPUT* 



III. This machine should use':" 
21,<=, f , + 



1. CONDITION:, 
' 0UTPUT= 



2. CONDITION:, 
OUTPUT* 



IV. This machine should use: 
>, INPUT-2, *, 12 



1. CONDITION:, 
OUTPUT' 



2. CONDITION:. 
OUTPUT' 
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Write the table, too. 
INPUT OUTPUT ■ 



4 

5 
6 
7 
8 

20 
21 



Write the table. 
INPUT OUTPUT 



3 
4 
5 
6 
7 
8 
9 

20 



Write the table. 



INPUT 


OUTPUT 


2 




3 




4 




5 




30 




40 
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Write the table.' 



INPUT 


OUTPUT 


10 




20 




30 




' 40 




18 




24 




100 





REflDV. 



1080 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
10j 
1 100 
1 1 10 

1 120 
1 130 
1 140 
1 150 
1 160 
1170 
1130 
1 190 

1200 

1210 
1220 
1 236 
1240 
1250 
1260 
1270 
12SQ 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 

2000 

2010 
2020 
2030 
2040 
2050 
2060 
2070 
2030 



GOSUB 1400, IN IT :GOSUB6000V OPENING GRAPHICS J IF FNQ < T > THEN 1 1 90 END 
GGSUB20O0 ~ PREREQ . WARN I NG 
GGSUB2200 , GET NAMES : GOSUB2480 , RULES 
FOR- JRNV=1 TO 20 

:GGSUB2600,PICK NAME :GOSUB2300, GET SEED/MACH. 
•IF ESC THEN 1130 

•PRINT"3" :POKE CRT12 :X=10 :Y=18 :GGSUBS300 :PRINT" AWAY WE GO!" 
ifl si kboSUB90Q8:PRINT"3" ; ;GGSUB6200 .PAINT MACH 

flfnTABLE=l TO 35 
: : GOSUB30G0 , I HPUT . GUESS /.QUIT 
: :ON TYPE GOTO 1 128, 1 130 . 1 150 
: : :GDSUB3200 :GOTO 1160 
: : :GOSUB3400 : IF FF=1THENFF=8 :GOT01 150 
: : :GGSUB3S00 : GOTO 1 160 
: : : T A=35 : NEXTTA : GOTO 1173 
:NEXT TABLE :GW=1 : GOTO 1898 
OW=8rNEXT JRNV 

GOSUB3600 EVALUATION :P0KE144,P :END 
PR I NT" POKE CR, 12 :PRINT"GGOOBVE ! " :P0KE144 ,P :END 
REM**PLACE DATA 

DATA PEACEFUL , TRANQU I L , CALM , THREATEN I NG ,L-REEP t 1 

HAZARDOUS, DANGEROUS, TREACHEROUS, PERILOUS, DEADL-t 

HAUNTED , ENCHANTED , MAG I C , GLOW I NG , FROZEN 

HUGE, GOLDEN -MYSTIC. -MYTHICAL, MYSTERIOUS _ 
CAVE STRING OF PEARLS. BEE HIVE, BOX OF BAND A IDS, DESERT , GOLD NUWrfTT 
GROTTO, TREASURE CHEST , MARSH , HUGE DIAMOND, CASTLE, "RUBY RING " 
L I GHTHOUSE , MAG I C LAMP, SWAMP, GOLD CHAIN, GRAVEYARD, CRYSTAL BALL 
GALLOWS, TIME PORTAL ' 
REM** IN IT 

PRINT"a"CHR*<: 142> :P0KE59463, 14 

Dl NAME*<6>,FUN*<2i>,EARN*<20>,INPT<35>,SEED<20> _^«.« s .i 

DEF FNE8<C>-<<<F»EEK<i3i>-iS0RPEEKa5i>^>*WEE^W-l>^MQ<T>> 
13OSUB1600:Z»RND<-RND<0>>:R*=CHR*<13> :CR=59463:S=255:CX=1 :*ND-1 ■ 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



P=PEEK < 5927 1 > : P= < -S3* < P= 1 700RP=29 > -49* < P=2 1 0 ) > : POKE 1 44 , P : P-P- o 
RETURN 

REM**SETUP FUNCTIONS 

DATA All ,A55,B14,C45 

DATA A22,B15,C14,D41X,D51'X 

DATA A33 ., A66 , B25 , C52X , C43X , D52X , D42X 

DATA A77,B46X,C56X,D53X,043X 

FOR I= S 0TO39 :REflDA* :NEXT • , ' 

FORI=0TO20 :REflDFUN*< I > :NE>!T 

RETURN 

REM**PREREQUISITE WARNING , • riir(V .. TUi:u , 1 , <if , 

POKE CR,14:PRINT»3V*K-!! MfflrUF FNES<OTHEN2Q88 

PRINT"*-" V< -T- I ho??' ! _ 
PRINT"SISl2l5kF VOU HAVE NOT SEEN THE SJ\ HM -1110- 
PRINT"S30^#*_- WILL OVERPOWER YOU 

PRINT"H|KF YOU HAVE NOT SEEN THE An M ~- I Nft— hSs f 

PR I NT "SfcK**_- WILL BOGGLE YOUR MIND!!!.... ^ r - t THFW"t ^e 

AS=2 :GOSUB9000 :X=0 : Y=22 :GOSUBS800 :GOSUB8e80 : IF EoC-1 IHfcN^y 

POKE CR,12 



ERIC 
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2098 PRINT" 71*1 MMMMMMMMMaaWM I ARE ENTERING THE MAGIC WORLD!"" 
-^1'00 FOR I=lTQ508:NEXT:flS=3:GGSUB9000:X=0:V=21 :GOSUB8800:IF FNQ', T) THEN 1 190 END 
2110 GOSUB8600 

2120 RETURN > / . 

2200 REH**GET NAMES , 

2210 POKE CR,12:PRINT"3SIS5IS3H" : IFFNES«X>THENNfl*< 1 >=" 1 " :GOTQ2390 

2220 PRINT"TVPE IN THE NAME >;AND PRESS JJSETURNS:; "R$"aFOR EACH PERSON IN VOUR" Jf 

2230 PRINT" GROUP. "R$"SF'RESS 35HIFT &■ TO GO ON . 2MS1" : AS=4 : GOSUB9000 : FOR I = 1 T06 

2240 :PRINr"HAME"I"||: :B$="" : OOSUBS2O0 : I FLEfK B$ > =0 ORB*="H"ORB*="-"THEN2270 

2250 :IFLENCB*:»=0 GRB*= " W GRB*= " -" THEN2270 

22«50 sNAME*<n=B$:NEXT I :NBIG=6:GOTO2390 

2270 NBIG=I :IFB*="-"THENNAME$ci5=STR*<I> :GOTO2390 

2280 IF I>3THEN2390 

2290 PRINT"3" :POKE C.R,14:GN I G0T02210, 2300,2368 

2300 N0ME*«CHR*<128 OR RSC< NA$ < 1 ■)) >+RIGHT$<NA*-.: 1 > ,LEN<Nfl*< 1 

23 10 PR I NT " □" : X=8 : V= 1 O : GOSUB8800 

2320 PRINT" IOU ARE VERV BRAVE, " :NAME$ ; " , "R* "3 TO TRV THIS ALONE! 

2330 PR I NT "S OU HAVE ONE MORE CHANCE. H"R*"~0 VOU WANT TO GET HELP "; 

2340 AS=lO:GOSUB9000:GOSUBrS0O:IF VES=1 THEN PR INT"3gl5fil" :POKE CR, 12 :G0TG2248 

2350 GOTO2390 

2360 PRINT"3gM5l5l2THLV TWO TRAVELERS? I HERE'S SAFETV I NJJ" R$ " NUMBERS , BUT VOU" j 

2370 PRINT" HAVE DECIDED TO TAKEM"R$" A CHANCE. "R$"5I5l3] PROCEED MMMM 

2380 AS=1 :GOSUB9@00:GOSUB8600 y 

2390 RETURN 

2400 REM**RULES ' 

24U3 POKE CR.14:IF FNES< OTHEN2558 
2420 PRINT"3£I5I5)D- S **_- IS A JOURNEV. " 

2430 PR I NT "3 ~ACH PLACE VOU COME TO WILL PRESENT" 
2440 PRINT "VOU WITH A MVSTERV MACHINE. IOU MAY" 

2450 PRINT" INPUT AS MAHV NUMBERS AS VOU LIKE. " 
2460 PR I NT "a CHEN VOU ARE READV TO GUESS , THE" 
2470 PR I NT "MACHINE WILL ASK VOU FOUR QUESTIONS." 
2480 PR I NT" S -.F VOU GET THEM ALL RIGHT VOU WILL" 
2490 PRINT"WIN A TREASURE." 

2500 PR INT "a* ->F VOU GUESS AND MISS VOU WILL LOSE " 
2510 PR I NT "A TREASURE." 

2520 PR I NT "a PU MAV AT ANV TIME LEAVE THE PLACE" 

2530 PR I NT "VOU 'RE IN AND GO ON TO ANOTHER. " : AS=6 :GOSUB9080 

2540 X=8 : V=24 : GOSUB8S00 : GOSUB8606 

2550 RETURN 

2600 REM**PICK A NAME 

2610 NAME=NAME+1 : IF NAME=>NB I G THEN NAME=1 
2628 NAME*=NAf1E*< NAME) 
2630 RETURN 

2300 REM**GET SEED/M ACH I NE 

2818 PRINT"3" :POKE CR,J4 :PR INT'-aST-* , ";:ESC=8 

2820 PRINT CHR*a2S OR RSC< Nfl*<Nfl> > :>+RIGHT$<:NA*<NA> ,LEN<NA*CHA> >-l > 
2830 PRINT"a M3URNEV ONWARD ! ! 

2340 PRINT"a IOU WILL BE TRANSPORTED TO A MVSTERV3 PLACE!" 
2350 IFJR>1THENPRINT"B<T0 QUIT AND SEE VOUR SCORE, ENTER fl»H) " 

2860'PRINT"B -HOOSE A LEVEL QF DIFFICULTV FROMa 0 (EASY) TO 9 '..'HARD ! 5 ": 
2370 AS=1 :GOSUB9800:L=0:GOSUB7S00:IFNM$="Q"THENESC=1 :G0T02978 

2380 PRIHT"a<-OW PICK A LOCATION FROM 1 TO 180 " ; :W1=INT<NM+. 5) : IFW1>9THENW1=9 
2890 AS=7 :GOSUB9000 :L=2 :GOSLIB7600 : IFNM$="Q"THENESC=1 :GOTO2970 
2900 NM=NM+<NM=>1 > :W2=INT<NIVieO : IFW2>9THENW2=9 
2910 W3=INT<NM-W2*10> : IFW3>9THEHW3=9 
2920 SEED=»108*W1 + 10*W2+W3+1 

2930 MACH= 1 - < SEED>399 ) - < SEED>699 > - < SEED>899 > 
2940 RESTORE :FORI=0TO Wl :READ PLACE*: NEXT 

2950 RESTORE :FORI=0TO9 1 :READA*:NEXT:FORI=0TOW2:READW2*:NEXT:PL*',1.'=PL*+" "+W2$ 

er|c 4b 



2960 RESTORE :F0RI=0TQ19 :RERBR* : NEXT : F OR I =OT OW3 : RERDPLRCE4K 2. TREASURE* :NEXT ' 

29?0 RETURN 

3000 REM**GET COMMRNfi 

3010, X=8 :V=20 : GOSUBS380 : POKE CR,12:P0KE15S,© 
~ 3020 PRINTNRME*", PLEASE GIVE R |il"R*" NUMBER TO INPUT 

3030 PRINT"SJTYPE SP! TO GUESS"R*"TYPE J3Q1 TO QUIT THIS ONE".; 

3040 X=16 :V=21 :GOSUB8300 :B*=" " :TVPE=1 

3050 GOSUB8000:R=RSC< (=»$."> :IF LEN«CB*»2THEN3100 

3060 'iFR*="—"THENTVPE=3 : RETURN 

3070 IF<<R>47 RND R<5S>QR R»45>RND TVPE= 1THEN3138 
> 3080 IF<<fiflND127>=flSC'C"G". , )>flNDc:LEN<B*>=0>THEN TVPE=2 :G0T03130 
3090 IF << flflND 1 27>=RSC < "Q" ) > RND < LEN < B* ) =8 > THEN T VPE=3 : GGT03 1 30 

3100 IF<fl=20>flNDLEN<B$:>THENPRINT"|| ||" ; iB*=LEFT*<B*,LEN<B*>-1 > :TVPE=1 :GQTO3B50 
3110 IFR=13 ANDLEN<B*>THEN3148 
3128 G0T03858 

3138 Bi=B$+R* : PR INTO* ; : IFLEN<B$.VC3THEN3&58 

3140 RS=5:GOSUB9000: RETURN 

3288 REM**INPUT NUMBER 

3218 IFTflBLE>':Wl+6>THENTC=TC+l 

3220 IFTflBLE<.19flNDOW=0THENGOSUB788e:GOSUB7d388 
3238 INPT<TRBLE>=VRL<B.$) :X=23 : V=8 :GQSUB8888 

3240 IFTRBLE=1 THEN PRINT" INPUT I OUTPUT Slllllllllllllli ! " % 

3250 X1=24:V1=8:IF TRBLE>13 C THEN X1=3:Y1=-18 

3268 IF TRBLE019 OR OW THEN3358 * • 

3278 PRIHT"3 INPUT I OUTPUT 

3238 PRINT " 1 ; 

3298 PRINT" INPUT I OUTPUT SIIIIIIIIIIIIBII 1 : " 

3388 FOR Tl=l TO 18 

3318 :X=24:Y=T1+1 :GGSUB8888 :PRINTINPT (Tl); :X=29 :G0SUB8888 : PR INT" I"; 
3328 :INPT=INPTCT1> :GOSUB4888 CflLC. 

3338 : PRINT OTPT; * " ■ 

3348 NEXT Tl 

3358 X=X1 :V=TflBLE+Vl+l :G0SUB3388 

3368 PRINT" ■■■■Hill" ; INPTC TABLED ; :X=Xl+5 :G0SUB3S88 :PRINT' . "; 

•3378 I NPT= I NPT TABLE > : G0SUB4888 / 
3388 PRINT OTPT; -.RETURN 
3488 REM**GUESS 
3418 G0SUB7488 NO TREASURE 
3428 PRINT"3";:G0SUB1-1888 
3438 Q<U=-1 :Q<2>=-1 : GK 3 ) »- 1 
3448 FOR 0=1, TO 4 

3450 :Z=RND<-RND<0>> : REM 'RANDOM SEED 

3460 : 1 NPT= I NT <RND <Z>#10> :I FMR> 1THENINPT=INT< I NPT*2 . 5*MA > 

3470 :IF F3=67 RNO<Q< 1»K OR Q<2»K OR IN>IOTHEN IN^INTCRNDC-RNDO) :>*K+i:> 

3480 :IF F3=67RNDQ=4 THEN .IN=< IN+2>*K 

3490 :IF IN=Q< 1>0R IN=Q<2)0R IN=Q<3.')THEN 3450 

3580 : Q < Q ) = I NPT : GOSUB4000 : K= 1 0 : V= 1 8+Q : GOSUB3300 : PR I NT I NPT 

3510 :X=X+8:G0SUB3388:PRINT" | Hill" ; :L=4 :GOSUB7600 : IFNM*="Q" THENRETURN 

3520 :IF NMBROOTPT THEN TC=TC+8 : GOTO 3558 

3530 PRINT"DC0RRECT":RS=1 :GOSUB9000:NEXT Q:FF=1 

3540 GOSUB6800GET TREASURE : GO t 03590 

3550 FORI=1TO500:NEXT :PRINT"3S0RRV, VOU DIDN'T GET IT" 

3560 IF NT=1 THEN PR I NT "BUT THE TRERSURE HRS BEEN TRKEN, RNVWRV I " :G0T035S8 
3570 IF ERRN>0 THENPRINT"VOU LOST R " ;ERRN*<ERRN> :ERRN=ERRN-1 :GOSUB6400 
3588 AS=18 :G0SUB9888 :X=8 :Y=24 :G0SUB3888 :G0SUB8688 
3598 TMT=TMT-K : RETURN 

3680 REM**EVRLURTE . — 

3610 POKE CR,12:PRINT"3saSa" 
3620 IFTMT=0THEN3730 

3630 AV=INT<10*ER-TC/TMT> :IFRV>100THENRV=100 

ERIC . So 



364Q I FTMT>3THEN3660 

3650 P<RINT"YGU ONLY TR I ED "TMT" MACHINE! " i :AV=S4 :IFTMT>1THENPRINT"||SI 
3660 PRIN'f >PRINT"VQU RATE AS AS"; 
3^78 RATE*=" MASTER WIZARD" 
3680 IFAV<9STHEN R A *=" WIZARD 
3690 IFAV<60THEN RA*=" JUNIOR WIZARD 
3700 IFAV<40THEN RR*="NOVICE WIZARD" 
3710 IFTMTC4THEN RA*="NOVICE WIZARD" 
3720 PRINT RA* 
3730 IF EARN<1' THEN 3778 
3740 PRINT"SVOU COLLECTED ";:IF EARN=1 THEN PRINT"THIS TREASURE :" :G0TO37 
3750 PRINT" THESE TREASURES:," 

3760 PRINT: FOR 1=1 TO EARN : PR I NT EflRN*< I > » 8 NEXT I :G0T037S0 
3770 PRINT "SIBSIS -YOU -DON'T HAVE ANV TREASURES" 
3780 RETURN • 
3800 REM**RETURN FROM GUESS 
3310 PRINT"3"; 

3820 Q7=TABLE-1 :Q8=0W :OW=l- , 
3830 FOR TABLE=1 TO Q7 

3348 : B*=STR* < I NPT < TABLE > > - " 
3858 :IF TABLE=19 THEN PRINT" SI INPUT I 0UTPUTIHI.HIBIIIIII3 

3868 :G0SUB3288 

3378 NEXT TABLE :T,ABLE=G7 :OW=Q8 
3388 IF OW=8AND'CTABLE<:i9.')THENGOSUB7880 
3898 RETURN 
4888 REM**FUNCTION 
4810 Z=RNO<-SEED> 
4628 G0S"0B5C38 PICK COMB. <F1> 
4838 F2= I NT < RND < 1 > + . 5 > : REM TRANSPOSE 
4848 F3=flSC<FUN*CFl .O : REM CONDITION 
4858 F4=VAL«;MID*<FUN*»:F1> ,2,1>> :REM EQ'N 1 
41968 F5=VAL M I D* < FUN* <F 1 > , 3 , 1 ) > : REM EQ'N 2 
4878 I F < F2= 1 % * ANDLEN < FUN* F 1 > X>4THEN X=F4 :F4=F5 :F5=X 
4888 ON F3-64 GOSUB4288 ,4488 ,4688 ,4808 
4098 EQUflT=F5:IF CND=8 THEN EQUAT=F4 

4188 IF CND=0 THEN Z=RND< 1 ".> :REM CHANGE RND# CONSTANTS FOR EQ'N 2 
4118' ON EQUAT 0031165888,5188,5158,5288,5388,5488,5588 
4128 RETURN 
4200 REM — COND=flNV 
4218 CND=1- « 
4228 RETURN 
4480 REM — COND=EVEN 

4448 CND=8:IF INT< INPT/2>=INPT/2 THEN CND=1 
4428 RETURN 
4688 REM — C0ND=OK 

4618 K8=INT^ND<1>^5>+5:CND=8:K=K0:IF INPT>K8 THEN CND=1 
4620 RETURN 

4800 REM — eOND'=FACT0R? 
4818 N8=INT''RND<l>*3>+3 
4828 CND=8 

4838 IFINT<INPT/N8>=INPT/N8 THEN CND=1 
4848 RETURN 
5008 REM — V=MX+B 
5010 M=INT<RND<1.V*4>+1 
5020 B=INT<RND<l>if:4> + l 
5030 G0TO5188 
5180 REM-.-LEVEL II 
5110 M=INT<RND<1>*3.V*2+1 
5120 B=IHT<RND<;i>*3.V*2+2 . 
5130 GOT 05 180 
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51513 REM — LEVEL III - 

51(58 M=INf<RHD<l>*5>-2:IFM=0THEN516@ 

5178 B=INT<RND'' 1 >*5>-2 : IFB=0THEN5178 

5130 OTPT=M*INPT+B 

5190 RETURN 

5260 REM — V=CONSTfiNT 

5210 K0=INT<RND<l>*16>+5 

5220 0TPT=K8 

5230 RETURN 

5300 REM — V=K-X 

5310 K8-INT<RN0< 1 >*21 >+18 

5320 OTP'T=K0-INPT 

5330 RETURN 

^400 REM — V=FIX2+B 

5410 ftel 

5420 B=INT<RND<1>*3>+1 :GOTO5530 
5560 REM — LEVEL II 
5510 H=INT<RND<1>*2>+1 

5520 B=INT<RND<1>*5>-2:IFB=©THEN552© ""\ • •• - 

5530 OTPT=fl#INPT*INPT+B \ 

5540 RETURN / \ ' 

5300 REM — DIFFICULTY SORT 

5310 ON MflCH GOSUB5S40, 5868, 5880, 5900 

5320 GOT05910 

5330 REM — LVL 1 

5340 LOW=0:HIOH=3:RETURN — 

5350 REM LVL 2 ' 

5360 L'0W=4 :HIGH=S : RETURN 

5370 REM LVL 3 ' • 

5388 L0W=9:HIGH=15:RETURN 

5390 REM LVL 4 

5900 L0W=1 6 :HIGH=20 ."RETURN 

5910 REM RND PICK FROM CORRECT LVL 

5920 F 1= I NT < < H I GH-LOW+ 1 > *RND <1>> +LOW 

5930 RETURN 

6888 REM*.*OPENING GRAPHICS 

6818 GOSUB12080:V=21 :GO3UB3300 :F0RI = 1 T039 :PRINT" SJ " ; :NEXT :FIS=9 :GOSUB9000 
6020 X=14 :V=20 :GOSUB8§00 :F0RI = 1T016 :PRINT ,, $UUUftlMI|||||C] l> ; :NEXT 

6838 pr i nt» mil iiiiisrs\\Na.'a<3'0''Nai^N3N imDk/x/3iiMiiiiiir ; 

6848 B*=" :X=15 :Y=20 :GOSUB88O0 : IFSNDTHENP0KED1 ,D4 :P0KED2,D5 

6058 FORI=43T063:fl*=CHR*'<I + 15*<I=58>+14*<I=59>> :FQRJ=1T08 

6060 PRINTfl*fl*fl*fl*fl*fl*B*fl*fl*fl*fl*fl*fl*B«; :P0KED3,<S-< I-48>*10>-10*J 

6070 IF FNES<C.-)THENP0kED 1,0: RETURN 

6080 NEXT : IFK63THENPRINTLEFT*CD*, 16> JS 

6098 NEXT I :POKEDl,0:PRlNT"ar.~s :X=2B :V=15 :GOSUB3800 : PR I NT "WIZARD ! 
6 100 flS=4 :GOSUB9000 :X=0 :V=23 :GOSUB8S00 :GOSUB8608 
6110 RETURN 

6200 REM**PflINT MACHINE 

6210 PRINT'-J^OU ARE NOW IN fl" :PRINT "jS"PLFICE*< 1 > :PRINT"iJ"PLflCE*<2^ 
6220 X=5:V=6:GOSUB3800 
6230 PRINT" 

6240 PRINT"mit| Vs SS 
6250 PRINT"|lfclW — 1 | 1 

6260 "PR I NT "HOW I II 

6270 PRINT"H11M IN 
6280 PRINT"ttMM | || 

6290 PRINT"!ilOI__N A I - - - 

6380 PRINT"I1111I \) [/ 

6310 X=0 : V=7 : GOSUBSS00 : PR I NT " # " ; M I D* < STR$ < SE ** , 2 > 
6320 RETURN. 



6488 REM**TREffSQRE LIST 

6418 IF ER=8THENRETURN 

6428 PRINT"afirVOU NOW HAVE:S1" 

6438 FOR I = 1 TOE ARN : I F I =E A AND I > 1 THENPR I NT " AND "; 
6440 PRINT"A " ? EARNS < I .'•> , :NEXT 
6450 RETURN 

6800 REM**GET TREASURE . 
6S10 FORI=lTO18£i0:NEJ<T:PRINT"agiaT'OU GOT IT!!" 
6820 IF NT=1 THEN 6870 ' 

6838 PRINTR$jR*.j."THE TREASURE VOU HAVE EARNED FROM" R$" THE "PLACED i; ; 
6840 PRINTPLRCE*<2>" IS"R$"m "TREASURE*"!" 

6858 EARN=EARN+1 : EARNS <EARN >=TREASURE$ : I FEA> 1 THEN00SUB6488 
6860 SEED<JRNV.')=SEED:AS=^:G0SUB3888:G0T06898 

6878 PRINT "SlSJSpMEGHE HAS ALREADV SOLVED THIS FUNCTION" , '* 

6S88 PR INT "AND* TAKEN THE TREASURE. " :AS=1 8 :G0SUB9888 : TMT=TMT-1 

6898 X=8:V=23:G0SUB8888:G0SUB8688 

6988 RETURN 

7888 REM**FLASH BOX 

7818 X=6:'t-9:G0SUB3888:AS=6:G0SUB9888 / 
7028 PR I NT "3 S"B*; > 

7838 FORI = 1T06-LEN',B$> :PRINT"ja S" ,* :NEXT tPRINT"SIHIIIBIIIIlS 

7848 PR I NT "9" : :G0SUB6288 
7858 RETURN" 

7488 REM**NO TREASURE ' ' 

7418 F0RI=1T028:IFSEED<I;=3EED THEN NT=1 :I=28:NEXTI s RETURN 

7428 NEXT I :NT=8 ? 

7438 RETURN 

7688 REM**GET NUMBER 

7618 NMBR$= P0KE158,8 

7628 G0SUB8888 :A=ASC<A*> : IFA=1 3ANDNM$=" " THEN7628 
7638 IF LEN<NMBR30>L THEN 7668 

7648 IFA>44ANDA<58ANDA047THEN PRINTA$; :WMBR*=NMBR*fA* :G0T07628 
7658 IFA=81 OR fl=289 OR fl=132 THENPR I NTLEFT$^ "llll" ,LEN<.NM$> > "Q IHI" .* 8NM*«"Q" 
7668 IF A=28 AND LEN<NM*j THENPRINTAS.: :NMBR$=LEFT*<NM$,LEN<.HMBR$.)-1 .> tOOf 07626 
7678 IF AO 13 THEN 7628 

7688 PR I NT : NMBR" = V AL < NMBR$ > ( . » 

7698 RETURN 

7888 REM**VES/NO « 

7318 PRINT"<^'« OR i3NS>? ";:VES=8 

7828 GOSUB8000 : IFA*=CHR*<: 13>ANDVETHEN7868 

7338 IF<A*=" |"0RA*="V">ANDVE=8THENVE=1 :PRINTA*; 

7348 IF<A*="/"0RA$="N">ANDVE=8THENVE=2:PRINTA$; 

7358 GOT07828 

7868 RETURN 

8888 REM**OET SINGLE CHAR 

8818 GETA*:IFA*0""THENPRINV- H";:G0T0884e 

3828 CT=CT+1 : IFCT>8THENPRINTMID$< " ^" .-CX, 1 > "II" ; :CX=3-CX :CT=8 

8030 GOT08818 ° 

8848 IFA$=CH'R*<3>THEN1198 END 

8858 IFA*=CHR*<147>THEN SND=8 

8868 IFA*«=CHR*<19>THEN SND=1 . 

8878 RETURN 

8288 REM**GET STRING 

8218 G0SUB8888:A=ASC<A$> 

8228 IFB*=""ANDA=28THEN8218 

8238 I FB#= " " ANDA= 1 3THENRETURN 

8248 IFB$^""ANDA*="^"THENB*="^" :RETURN 

8258 IFB*=""ANDA*i:"-"THENB*="-" :RETURN 

8268 IFA=13THENAS=5:G0SUB9888:PRINTA*; :RETURN 

8278 IFA=28ANDLEN B$ X2THENPR I NTA$ ; ;B$=" " :G0TOS218 



ERJC 



53 



82:30 
S29Q 

i@0 



83 lT 



3310 
3320 
3830 
3600 
3610 
3620 
3630 
36*10 
3650 
3660 
8670 
3680 
8800 
8810 
8820 
8836 
8840 
3850 
8360 

9000 
9010 

9026 
9030' 
9108 
9110 
9120 
9130 
9208' 
9210 
9228 
923.8 
9380 
9310 
9328 
9330 
9348 
9350 
3360 

' 9370 
9330 
9390 
9400 

i v 9410 

' 9428 
9430 
9440 
9450 
9468 
9478 
9488 
9498 
9580 
9510 
9520 
9530 

" 9540 
9550 



I FFN28THENPR I NTR* ; : B$=LEFT* < B* , LEN < B* > - 1 > : G0T032 1 @ 
I FRC320R < R> 1 27RNDR< 1 6 1 > THENS2 1 3 
I FLEN < B* "> > 1 8THEN82 1 0 
PRINTfl*;:B*»B*+fl* 
I Ffl*=CHR* < 34 > THENPR I NTfl* " II" : 
G0T0S218 

REM**WRIT FOR RETURN 
I FPEEK < CR > - 1 2THENS630 

PRINT"TO GO ON, PRESS ^RETURNS " ; fG0T0S640 
PRINT" |0 GO ON., PRESS SA~"\ ■ 
POKE 1 58 , 8 : GOSUB8000 : H=flSC < fl$ > : ESC=0 
IFR=13THEN8638 ." 
IFfl*="-"THENESC=l ;G0T08638 • 0 
G0T03648 

flS=5:G0SUB9888:RETURH 
REMttftTO X,V 
PRINT"!!" :PRINT"g"; 
IFX;=8flNDV=8THEN RETURN 

IF*=0THENPRINTLEFT*<D$,V> j:RETURN • * 

IFV=0THENPRINTTRB<X> ; : RETURN ' % 
PRINTLEFT*CD*.,V>TRB^ 
RETURN 

REM**RUDIO STUFF 

D1=5-=>467:D2=59466:D3=59464:D4=16:D5=15:IF SND=0 THEN D4=8 
ON- fi& 0031169188,9288,9388,9688,9788,9886,9988,18888,18188,18288 

POKED1,0:POKED3,0:RETURN 
REM 1#RRND0M BEEPS 

FOR SI=1T0 3:D3=INTCRNDC-RNDC8) >*288>+55 
P0KEDl,D4iPGKED2,D5:P0KED3,D3:F0R SJ=1 TO60 :NEXT 
NEXT :RETURN , 

REN 2*W0BBLE - ^ m = . 

P0KED1,D4:P0KED2,D5:F0RSI=1T018:F0R D8=250TO280bTEP-5 
P0KED3 , D8 : NEXT :F0RD8=268T0258STEP5 :P0KED3,D8 -.NEXT 
NEXT : RETURN 
REM 3*WIZRRD'S TUNE 
POKED 1 ,D4 :P0KED2,'D5 :F0RSJ=8T01 

PRINT :PRINT" IF " ; :S 1 =4 :S2= 1 88 : GOSUB 18300 : 1 FFNES< C > THENRETURN 
PRINT'" VOU " ; : S 1 =2 : S2= 1 40 : GOSUB 1 0388 : 1 F FNES < C > THENRETURN 
PRINTMID*C"GO CRN, " , 1+3*9J.,3+SJ> ; 
SI =4 : S2= 115: GOSUB 1 0388 : 1 FFNES C C > THENRETURN 
PR I NTM I D* < " I NMRS " , 1 +2*S J ,2+S J> ; 
S1=4:S2=*124:GGSUB18380:IFFNES<C:> THENRETURN 

PRINTMID*'t"TO TER " ,1+3*SJ,3+SJ> ; 
S1=4:S2=115:GOSUB10388:IFFNESCC>THENRETURN 
PR I NT "THE "; :S1=4:S2=188:G0SUB18388:IFFNES<C>THENRETURN 
PR I NT " W I Z " ; : S 1 =2 : S2= 1 48 : GOSUB 1 8308 : 1 FFNES < C > THENRETURN 
PRINT"RRD'S :S1=4 :S2=1 15.:GOSUB103O0 : I FFNES CO THENRETURN 
PRINTMID*<"TP M ,l+SJ,i:>;"OWER ":PRINT 
Sl=2 :S2=124 :GOSUB1Q308 8,1 FFNES<C>THEHRETURN 
PRINT"VOU";:PRINTMID*<"'D 'LL " , 1+3*SJ,3+SJ> ; 
S 1 =4 : S2= 1 88 : GOSUB 1 8380 : 1 FFNES C C > THENRETURN 
PRINTMID*< "BETCRR" , l+3*SJj3> ; 
S1=4:S2=146:GOSUB18380:IFFNESCC:> THENRETURN 

PR I NTM I D*<" TER RV " ,1+4*SJ,4-SJ>; 
Sl-4 :S2=124 :GOSUB10308 : IFFNESCOTHENRETURN 

PRINTMID$<"NOT SOME " , 1+4*S J,4+SJ> ; 
SI =4 :S2=1 15 :GGSUB 10380 : 1 FFNES C.O THENRETURN 
PR I NTM I D*< "GO TRER",l+3*SJ,3'+SvT>; 
S 1 =2 : S2= 1 24 : GOSUB 10330:1 FFNES < C > THENRETURN 
PRINTMID*C "RSURES " , 1+SJ, 1+5*SJ.\: 



9560 S 1=4 :S2= 115: 008UB 1 0-389 : 1 FFHES < C > THENRETURN » 

9578 PR I HTM I D« < " LONE ! HOME ! " , 1 +5*S J ,5> s ■ 

9588 S 1 =2 : S2= 1 48 : GOSUB 1 8388 : I FFHES \ C > THENRETURN - 

9598 FORSI=1T0308 :NEXT :PRINT : NEXT : RETURN 

9(588 REM 4*FLASH/BU2Z 

9618 POKE 59464 ,255 :POKE 59466; 15 

9628 FOR VI=1T068 :P0KE59463, 14+188*SND : POKE 594 63 ,12 :NEXT 
9638 POKE 59466,8: RETURN 
9?88 REM 5*RANDOM BEEP 

97 1 8 FORS J= 1 TO I NT < RND -8 > *5 > + 3 ■: S2= I NT < RHO < 1 > *288 > +55 : S 1 = I HT < R ND < 1 ; #38+ 
9728 POKE D1,D4:P0KE D2,D5:P0KE D3,S2:F0R S I = 1 TOS 1 : NEXT : POKED 1,8: NEXT 
9738 RETURN 

9S88 REM 6*ZAP f 
9818 POKEDl ,D4:PGKED2,D5 

9828 F0RSI=18T0255STEP18:P0KED3,SI :NEXT 
9838 POKEDl ,8 :P0KED3,8 :RETURN 
REM 7*0NE-SH0T SIREN 
POKED 1 , D4 :P0KED2> D5 

FORSI = 1 58T058STEP-2 : P0KED3 ,SI :HEXT 
FORS I =58T0 1 58STEP2 :P0KED3,SI :NEXT 
RETURN 
REM 8*J0URNEV 
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9988 
9918 
9928 
9938 
9948 
1 8888 
18818 
18828 
18838 
18188 
181 18 
18128 
101 38 
10148 
18158 
18168 
1 8 1 78 
18188 
18288 
18218 
18228 
18238 
18248 
18388 
18318 
11888 
1.1818 
1 1828 
11838 
11848 
11858 
1 1868 
11878 
12888 
12818 
12828 
12838 
12848 
12858 
12868 
12878 
RE ADV. 



POKEDl ,D4 :P0KED2 ,D5 :F0RSI=255T028STEP-2 

PDKED3.SI :PGKED3, 31-18 :P0KED3 ,31-28 : IF FNES<CJ> THENRETURN ^ 
NEXT: RETURN 
REM 9*FANFARE 

POKED 1 . D4 : P0KED2 ,05 : 1 FFHES < C > THENRETURN 
81=3:32=237: GOSUB 1831© 
S 1 =8 : S2=21 1 : GOSUB 1 83 1 8 

SI =8:32=188: GOSUB 183 18 \ 

SI =4: S2= 158: GOSUB 183 18 

S 1 =8 : S2=2 1 1 : GOSUB 1 83 1 8 

S 1 = 1 : 32= 1 58 : GOSUB 1 83 1 8 

RETURN 

REM 18*UH-0H 

POKE D1,D4:P0KE D2,D5 

31=4 : 32=98 : GOSUB 1 83 1 8 

31=2:32=124 : GOSUB 183 18 

RETURH 

S2=S2-38*SJ 

P0KED3,S2:F0RSI=1TG2*PEEK< 151.) /SI :HEXT :PGKED3,8 :FGRSI = 1 T05 :NEXT : RETURH 
REM#*TEST GRRPHIC 

PRIMTTflBf;8> ;"J3 ' II II II " 



mmu 
uu 

till 1111 



111" 

111" 
111" 
111" 



PRINTTflB<8>;'*a«| 1111 U1UI 
PRINTTAB<8> t 'at&l 1111 1111 
PRINTTflB<8> f "2MM 1111 111111 
printtrb<s:j :"SHI 1111 II 
PRINTTRB<l8>;"SSIal9]IHPUT I OUTFUTiSlllHIIIIIIIII 
RETURH 

REM**TITLE PAGE 

PRIHTTfiB<15> ,, aa30-,**_--aB]"R*;TflB-;6>"4' PfiRT OF THE 
PRIHT" BV THE NflTH .,-ETWORK -URRICULUM "FOJECTH 
PR IHTTAB (16) " .^■■■■■ES>4 .8 | -JJ 
PRIHTTAB<8V &E fl* K-l Si TO ESCAPE. 3" R*; TAB < 14 V- 
PRIHT" ,SE ja-L_i TO TURN SOUND OFF, 3 IPC'S FOR OH. 
PRIHTTAB-;6>; :G0SUB8688:PRIHT"3" :POKE CR,12 
RETURH 



'-r.'l .-t-JITa 
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MUM 
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ERSV S_ 1 DCRT 

RERDV. 

18 SVS1039 :RUN 
RERDV. 

RERDV. 

3 VERS=2. 1 

4 60SJJB1 16@@: GOTO 11288 

5 REMCOPVR I GHT SRH FRRNCISCO STRTE UNIVERSITY 1981, RLL RIGHTS RESERVED 
18 PRINT"g" : : IFVTHENF0RMQ=1T0V :PRINT"ST ? :NEXTMQ 

1 1 RETURN 

1 2 GQSUB 14:1 $=B$ : G0TO3888 

14 Q=V:V=28:GClSLIB18:F0RQJ=:lT02:F0RQZ=5lTG39:PRINT ,, " ; : NEXT : PR I NT : NEXT 

15 PRINT ,, ;mr :V=Q :RETURN 
28© REM— NET IN— 
210 1*="" :01$= n R" 

22$ GOSUB40tfsIF<PEEK<SQ>flNDRF>OlTHEN220 ^\ 
230 SVSRX:R$=CHR$<PEEK';RB>> : IFR$=RT$THENPRINT h M ||" ; :SVSSD : RETURN 
240 I$=I*+R$:GOTO220 ] 

480 REM BLINK CURSOR \ . 

418 IFDTHENPRINT ,, -a ,, Dl$ ,, ||"; :D=Ffl: RETURN - 
428 PRINT"B"01$"H" ; :D=TR : RETURN 
680 REM NET OUT 

610 SVSBS :D1*= M S" :FORI=lTOLEN<0*> :GOSUB480 :POKEXB „flSC<MID**D*„t , 1 > > :SVSTX 
615 NEXT 

620 P0KEXB,13:SVSTX:PRINT"B || H :G0T0288 
1800 REM FIND OUTPUT 

1810 CDK=0 :F0RLN»8T0NL :EE=8 : I*=PC*<LN> :G0SUB?888 : IFEETHENEE=EE+128 :G0T01888 
1 828 IF < OUOTR > RND (OUOFfl > THENEE=£5+ 1 28 : GOTO 1 888 
1838 IF0U=8THEN1878 

184C CDX=CDX+1 :I$=RX$<LN> :GOSUB7880 : IFCDK=1 THENQO=OU 
1850 IFOUOQOTHENEE= 138: GOTO 1080 
I860 IFEETHEN1088 
1070 NEXTLN : IFCD?*=0THENEE=130 
1080 IFEERND127THENGOSUB9000 
1090 OU=QO: RETURN 
' 1200 MR=38:0F=65:TR=-1 :FR=8 :MS=28 :RE= . 88889 :HN=38 :NL=-1 
1248 DIM SK*<MS),SK<MS>,KEV*<MR>,P2<18>,P3<10),R4<10> 

1 250 DRTR • t , + <> r RND r OR r LCh r G CD r RMD , R R NDOM , FR CT r MRX I MUM 

1255 DRTRMINIMUM, END^INPUT^RLWRVS.NEVER^END^SQR, NOT, ODD, EVEN r INTEND 
1388 RS$f"IJKLM" :NK=8 

1318 R2=NK+0F : GQSUB 1 488 : R8=NK+0F : GOSUB 1 488 : R 1 »NK+OF : GOSUB 1 408 
1322 FGRI=R2+13T0R8-1 :R2*=R2*+CHR$< I > *NEXTI 

1324 F0RI=R8T0R1-1 :R8$=R8$+CHR$< I > :NEXT :FORI=Rl TOOF+NK-1 :R1*=R1$+CHR$< I > :NEXT 
1338 BS=1843:SQ=BS+15:RB=BS+17iXB==BS+13:TX=BS+9 :RX=BS+6 :RF=1 :SD=BS+3 
1348 ML=5:DIMC0$<ML> ,EX*<ML> ,RC*<ML) ,RX$<ML> :RT$=CHR*< 13> :ES*="-" :Re$="?$" 
. # 1398 RETURN r 
1488 RERDKE*<NfQ : I FKE$ < NK > 0 " END " THENNK=NK+ 1 :G0T01488 
1418 RETURN 
1688 REM GETNUM 

1685 B*=" M - ' ' 

1618 IFLEN<B*>>4THENR=28 :G0T01638 

1 628 GOSUB 1 708 : 1 F < R>47RNDR<53 > 0RR=450RR=46THENPR INTfl* ; : B$=B$+R$ : GOTO 1618 
1 638 IFfi=28flNDLEN < B$ > THENPR INT" II" ; : B*=LEFT$ < B$ , LEN < B$ > - 1 > : GOTO 1 6 1 8 
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1646 IFfl$=ES$ORfl$=flC$THENB$=fl$ : RETURN • ! 

165© IFflO13ORLENCB*>=0THEN1610 
1660 I H= VOL < B* >: RETURN 
1700 REM GETCHflR 
1705 T=TI ' • 

1710 IFTKT+3Q THEN PRINT''^!!" ? ;G0TQ1748 
1720 IFTKT+60 THEN PRINT" ||" ; : GOTO 1740 • 
1730 T=TI 

1740 GETfl$:IFfi*=" "THEN 1710 

1750 PRINT" .11"; !ft=ftSCuft$ . -5 : RETURN ' * 

1300 REM GETNOHEMPTV 

1305 GOSUB1700:IFB$=""fiNDft=20THEN1300 
1310 I Ffl*=ES$ORfl$=flC$THEHB$=fl$ : RETURN 
1320 IFLEN<B*)=LSftNDftO13ftNDftO20THENlS00 
1330 I Ffl= 1 3THENRETURN 

1340 I Ffl=28flNDLEN < B$ > <2THENPR I NTfl$ ; :B$=" " :G0T01888 
1358 IFfl=28THEHPRINTfl$; :B$=LEFT$uB$,LEN<B$.";-l > :G0T01888 
1 86© I Ffl<320R < fl> 1 27HNDPK 1 6 1 \> THEN 1 380 

1878 PRINTfl*; :B$=B*+fl$ : IFft=34THENPRINTCHR$';34> + "||" ; 
1838 GOTO 1880 

1 9G8 I F < V 1 < 1 > OR < V2< 1 > THEHRE=Fft : RETURN 
1918 I F < V2- 1 NT < V2 > ) >flETHENRE=Ffl : RETURN 
1928 IF<V1— INT<V1 > >>flETHENRE=Ffl : RETURN 
1938 EE=8: RETURN 
1 948 I FV 1 <8THENRE=Fft : RETURN 

1958 GOTO 1928 . 
1 968 I F < V20 - 1 :> ftNDV2THENRE=Fft : RETURN 
1978 I F < V 1 0- 1 .-■ AND V 1 THENRE=Ffi : RETURN 
193*0 EE=8: RETURN 

2888 SK*«;SS>=SK* :SS=3S+1 :G0T0488 
2208 SS=SS-1 sSK*=SK*<SS:> :GOTO400 
2408 SK < SN ) =SK : SN=3N+ 1 G0T0488 

268© SN=SN-1 :SK=SK<SN>":GOTO480 . " 

2800 P8*=P1$ :IFP1>LEN'.: 1$.-; THENP 1$= GOTO2990 

2340 I FP 1 >LEN < I*> THENP 1 $= " " : GGT02990 
•2850 IFMID*CI* -PI A > = " " THENP 1 =P1 + 1 :GOTO 2340 
2360 Pl$=MID$uI*,Pl,l> :P1=P1+1 
2390 RETURN 

3888 G0SUB328e:G0SUB3488:IFN0TRE0RERTHEN319e 
3835 IF Pl$O""THENRE=Ffl:G0T03198 
3848 G0SUB2288:0*=SK*: PRINT"! ||" ; 
3138 RETURN 

3288 P8=l :P1=1 :GOSUB2380 :ER=Fft :RE=TR :SS=0 :SN=8 :OS=" " :LV=8:0V=11 :D1$="T" : RETURN 

3488 LV-UV+1 :IFLV>0VTHEN3888 

3418 G0SUB3688:IFN0TRETHEN3598 

3438 G0SUB5288 : I FNOTRETHENRE=TR : GOTO3590 

3450 G0SUB3688 : IFNOTRETHENRE=Ffl :ER=TR :G0T03598 

3478 G0SUB2288 :E1$=SK* :G0SUB2288iR*=SK* :GOSU'B 2288 :E2*=SK$ 

3588 SK*=R*+" S+E1*+" "+E2* :G0SUB2888 :GQT03436 

3598 G0T03988 

3600 LV=LV+1 :IFLV>OVTHEN3300 - 
3610 P2<LV-2>=1 : GOT 03888 
3628 I FN0TRETHEN3798 

3638 G0SUB5888 : IFNOTRETHENRE=TR :GOTO - 3798 
' 3658 P2<LV-2)=2:G0T03S88 

3660 IFNOTRETHENRE=Fft :ER=TR :G0T03798 

3678 GOSUB2200 :T*=SK* :GOSUB2208 :R$=;SK* : G0SUB2288 : E$=SK* . 
3700 SK*=R*+" "+E$+" "+T*:GOSUB2000:GOTO3630 
3790 GOTO3900 
3300 REMTERM 
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3816 
332© 
3338 
3S5Q 
386© 
3870 
3960 
3990 

4600 
4010 

4015 
4620 
4040 
4050- 
4055 
4060 
4074 
4079 

48§0 

'4108 
4120 
4150 
4208 
4218 
4228 
4238 
4248 



P3 < LV-2 > = 1 : GOTO4000 
I FH0TRETHEN3390 

GOSUB4800 i IFNOTRETHENRE=TR :GOT03S9Q 

P3';*LV-2>=2:GOTO4000 

I FNOTRETHENRE=Ffl :ER=TR :GOTG3990 

GOSUB2208 :F*=SK* :GGSUB22Q0 :R$=SK$ :G0SUB 2200 :T$=SK$ 
SK*=R$+ M "+T**" M +F$ :GGSUB2fei0© :GOTO3S30 
QNP2 < LV-2 > G0TG3628 r 3660 
REf'IFRCTtfR 

GGSUB5008 :SK=RE :GOSUB2400 
P4CLV-2>=?J :GGTG4208 
JFERTHEN4150 

SK=RE:GOSUB2400 u - 

GOSUB5300 : IFHOTRETHENRE=TR :GOTO408Q 
P4 < LV-2 > =2 : GGTO4200 
IFNGTRETHENER=TR :G0T04 1 50 * 

GOSUB220O :F2*=SK$ :GOSUB2200 :F*=SK$ JG0SU62288 :F1*=SK$ 
SK*sP$+" "♦FIS*" "+F2*:GGSUB 2608:00704,050 
G0SUB2608 : I FH0TSKTHEN4 1 50 
GOSUB2600 : I FN0TSKTHEN4 1 50 

GGSUB2288 zF$=SK$ :GOSUB2260 :R$=SK* :SK$=R$+" 8 "'+F* :GOSUB2880 

0NP3 < LV-2 > GOTO3S20 . 3860 

REMPRIMfiRV 

I FP 1 •$= " . " OR < P 1 ■$>= "0 " RNDP 1 *<= " 3 " ) THEMGOSUB46O0 : G0T04398 
I FP 1 *>= " R " RNDP 1 *<= " Z " THENGOS" JB44S8 : GOTO4390 
IFPl*O ,, < M THENRE=Ffl:ER=TR:G0T0 439© 

GOSUB2808 :GOSUB3400 : IFNQTRETHENRE=FR sER=TR :GOTO4390 



4270 IFP1*<: 



'THb'NRE=Ffl :ER=TR :G0TO 4390 



4238 RE=TR:GOSUB2S00 ~ ^ v ^ 

4390 ONP4<LV-2>GGTO4020, 40.60* , 

4460 LV=LV+1 :IFLV>OVTHEW880'0 
4418 NM$="" 

4 42B I FP 1 $ < " fl " ORP 1 *> " Z " THEN444© 

4430 G0SUB2888 :NH*=NM*+P8* :GOTG4420 

4440 S$=R2$ :GGSUB5680 : IFRETHENGOSUB6280 :GOTO4590 

4450 S$=R1$ :GGSUB5600 s IFRETHEHGGSUBS488 :GGT04598 

4468 S$=R8$ :GGSUB5608 : IFNQTRETHENER=TR 

4598 GOTO8980 < 

4600 SK*= ,,M 

4620 IFP1*<"0 ,, QRP1*>' , 9' , THEN4708 

4630 GOSUB2808:SK*=SK*+P0*:GOTO4628 

4700 IFP1*0"« n THEN4780 

4710 IFLEN<SK$>=8THENSK•$= ,, 8 ,, 

4728 GQSUB280©:SK$=SK*+P0$ 

4 730 I FP 1 *< " 0 " ORP 1 *> " 9 " THEN4788 

4740 G0SUB288& :SK*=SK*+P0$ :G0T0473Q 

4780 I FLEN < SK* > >OTHENRE=TR : GOSUB2800 : G0T0479© 

4785 RE=FR 

4798 RETURN 

4880 I FP 1 *<> " * " RNDP 1 *0 " / " THENRE=FR :GOT0499G 

432© GOSUB2800 :NM%=P8* :GO3UB6080 :RE-TR :SK$=C* :GOSU82000 

4990 RETURN 

5800 I FP 1 *<> '* + " RNDP 1 $<> " - " THENRE=FR : RETURN 
5020 GOTO4820 

5208 Nfl=3 : S*=RSS : GQSUB5400 : I FRETHENRETURN 

5238 JFP1*0 ,, <"RNDP1*0 ,, = M RNDP1*0">"THENRE=FR:RETURN 

5248 G0T04828 

5300 I FP 1 $<> " 1* " THENRE=Ffl :RETURN 
5320 GOTO4820 

5408 IFP1*= M "THENRE=FR:GOTO 5530 
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541 U 
5428 
5436 
5450 
5460 
5590 
5660 
5640 
5668 
5670 
5790 

6000 
6010 

6200 
6220 
6230 
6240 
6250 
6260 
62S0 
6388 
6390 
6480 
6420 
6430 
6440 
6530 
6590 

7000 

7050 
7190 
72O0 
7220 
7230 
7235 
74O0 
7440 
7460 
7500 
7530 
7560 
7570 
7530 
7590 
7600 
7606 
7607 
7608 
7609 
7610 
7620 
7630 
7635 
7640 
7645 
7650 
7660 
7670 
7680 
7690 



P0=P1 :GOSUB2S00 :NM$=P8$ : IFP1$=" "THENRE=FR :P1=P0-1 :GOSUB2S0O :GOTO5590 
GOSUB2800 :HM$=Hf'1*+P0* :CC=2 :GOSUB5680 : IFRETHEH5590 
GOSUB5600 : IFRETHEN5590 

IFCC=NF»0RP1$=" M THENRE=FR tPl=P8-l :GOSUB2300 :GOTO5590 
GGSUB2S00 :NM$=HM*-*-P0$ :CC=CC+1 :GGTO5430 x ' 
RETURN . 

GGSUB6000 : IFN0TRETHEN5798 

F0RC=1 TOLEN<S$> :RE=FB : IFMID$<S$ ,C, 1 >-C$THENRE=TR :C=LEN<S$> 
NEXTC 

IFRETHENSK$=C* :GOSUB2088 
RETURN 

RE=FR :FORC=0TONK-1 : 1 FNM*=KE* < C ) THENRE-TR :C$=CHR$<C+QF> :C=NK-1 

NEXTC: RETURN 

IFP1*O"< ,, THEH63S0 

GGSUB2800 : GOSUB3600 : I FNOTRETHEN6330 
I FP 1 *<> " r " THEN63S0 

GOSUB2800 :GGSUB3600 : IFM0TRETHEN63S8 
IFP1*O"j"THEN6380 * 

GOSUB2S00 :GGSUB^200 :F$=SK$ :GOSUB2200 :F*=SK*+" M +F^ 
GGSUB2200 sSK£=SK$+" -^+F* :GGSUB2000 :GGTG6390 
ER=TR:RE=Ffl 
RETURN 

I FP 1 $<> M < " THEH6530 

GGSUB2300 :GGSUB3400 : IFNOTRETHEN6580 



IFP1$ 



THEN65S0 



GOSUB2300 :GOSUB2208 :F$=SK$ :GOSUB22005Sk*=SK*+" "+F$ :GOSUB2Q00 :G0TO6596 

ER=TR:RE=Ffl 

RETURN 

GGSUB7200 :GO&UB7400 : IFWGTRETHEN7190 

GGSUB 2680:OU=SK:PRINT"B ||" s 

RETURN 

Pl=l :D1$="T" 

I FP 1 >LEN < I •$ > THENPR I NT " ERRGR IN INITTIHG GF EVRL" :STOP 
Pl$=MID$<I$ r Pl^l> :P1=P1 + 1 :IFP1$=" "THEN7220 
ER=FR :RE=TR :SS=0 :SN=0 : RETURN 

RE=TR :C$=P1$ :GOSUB300e:IFC*i = ,, 8 ,, flNDC*<= ,, 9 ,, THENSK=VflL<T*5 :GOTO7530 

I FflSC < CS > >=R0flNDRSC < C* > <R 1 THENGGSUBS480 : GOTO7580 

SK*=C* :GGSUB2000 :GGSUB740© :GGSUB2200 :C*=SK* : IFNGTRETHEN7590 

GGSUB2600 :V1=SK : IFRSC<C*X>==R1THENGOSUB3600 :GGTO7580 

SK*=C* :GGSUB2000 :SK=V1 :GOSUB2480 :GGSUB7400 :GOSUB2208 :C*=SK$ 

I FNOTRETHENGGSUB2600 : GOTG7590 

GGSUB2600 :V2=SK :GOSUB2600 :V1=SK :GGSUB7680 

GGSUB2400 

RETURN 

GNRSC < C$ > - < R2 - 1 > GGTG7607 , 76 1 0 7620 r 7630 r 7640 r 7650 r 7660 , 7670 r 7680 r 7690 

ON RSC < C* > - < R2+9 > GGTG7700 77 1 0 , 7720 r 7730 , 7740 r 7750 , 7760 , 7778 r 7730 , 7790 

IFL0G<RB8<V1 >+. 1 >*V2>=HNTHENEE=5 :RE=Ffl : RETURN 

SK= V 1 1 V2 : 1 F < V 1 = I NT < V 1 > > RND < V2= I NT < V2 > !> THENSK'= I NT < SK+ . 5 > 

RETURN 

SK=V 1 +V2 : RETURN — 
SK=V1-V2: RETURN 

IFLOG<RBS<Vl>+. n+L0G<flBS<V2> + . 1 >>HNTHENEE=3 :RE=FR : RETURN 

SK=V1#V2: RETURN 

I FV2=6THENEE=4 : RE=FR : RETURN 

SK=V1/V2: RETURN 

SK=<V1=V2> : RETURN 

SK=<V2<V1 > : RETURN * — 

SK=<V2>V1 > : RETURN 
SK=<V2<=V1 > : RETURN 
SK= < V2>=V 1 > : RETURN 



9 
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7706 SK=<V10V2> : RETURN 

7710 EE=23 :G0SUB1968 : IFEETHENRETURH 

7715 SK=<VlflNDV2> : RETURN 

7720 EE=24:0OSUB1968: IFEETHENRETURN 

7725 SK=<V10RV2> : RETURN 

7730 EE=1 1 :GGSUB1988 : IFEETHENRETURN 

773 1 I FV 1 < V2THENV3-V2 :G0TG7734 

7732 V3= V 1 : V 1 = V2 : V2= V3 

7734 IFINT>:V2/V1 >OV2/V1THENV2=V2+V3:GOT07734 
7736 SK='V2: RETURN 

7740 EE=12:G0SUB1988: IFEETHENRETURN 

7741 IFV1=V20RV2=8THEN7746 

7744 V3=INT<Vl-INT<Vl/V2>*V2+.5>sVl=V2sV2=V3:G0T07741 ' 
7746 SK=V1: RETURN 

775Q IFV2=QTHENRE=Ffl:EE=S:RETURN 

7755 SK=V1-INT<V1/V2>*V2:RETUPN 

7760 SK= I NT < RND< 1 > # < V2-V 1 + 1 > +V 1 > :RETURN 

777© EE=28:GGSUB1908: IFEETHENRETURN 

777 1 SK= < I NT < V2/V 1 ) =V2/V 1 .) : RETURN 

7788 SK=V1 :IFV2>V1THENSK=V2:RETURN 

7782 RETURN 

7790 SK=V1 :IFV2<V1THENSK=V2:RETURN 
7792 RETURN 
7800 P0*=P1$ 

7S20 IFP1>LENCI#>THENP1$="" :GGTO7990 
7830 P1*=MID$<I$,P1„4> :P1=P1+1 
7990 RETURN' 

8600 T$="" ' 

8G30 IFP1*=" "THENG0SUB7888 :GOTO8830 

8O40 IFP1$=" "8RP1$=""THEN8158 

8050 GGSUB7880:T$=T$+P0$:GOT08040 

8158 IFPi#=" "THENGOSUB7300 :GOTGS150 

8198 RETURN 

8488 ONfiSC < C$ > -R8+ 1 G0TG8428 , S438 , 8448 
8428 SK=IN : RETURN 
8438 SK=TR : RETURN 
8448 SK=F ft : RETURN 

8680 GNRSC<C:$:>-Rl + lGOTO8620,S63e, 8646, 8658,8668 

8628 IFVK0THENRE=0 :EE=6 : RETURN 

8625 SK=SQR<V1 > : RETURN 

8638 EE=26 :GOSUB1978 : IFEETHENRETURN 

3635 SK=NGT<Vi:> : RETURN 

8648 EE=1 3 :G0SUB1948 : IFEETHENRETURN 

8641 IFINT<Vl/2>=Vl/2THENSK=Ffl : RETURN 

8645 SK=TR : RETURN 

8658 GGSUB8648 :SK=NGTSK : IFEETHENEE=19 
8655 RETURN 

8668 SK=INT<V1> : RETURN 

8888 PR I NT " THAT ' 8 TOG COMPLICATED, LEVEL ="LV :ER=TR :RES=Ffl :LV=LV-1 :RETURN 
8988 LV=LV-1 : RETURN 

-9.088 EE=EEflND127 : PR I NT" I DON'T -KNOW WHAT TO DO" 
9028 EE=EE-1 sIFEE>5THENEE=EE-l 
9025 I FEE>6THENEE=EE-2" 
9030 I FEE>3THENEE=EE-5 
9035 IFEE>HTHENEE=EE-2 
9040 IFEE>18THEN9052 

9058 ONEEGOSUB9100,9104,9188,9il2,9118,91 16,9288,9284,9288,9212 
9051 GOTG9053 

9852 ONEE-18GOSUB9216.9300,9304,9310,9315 
9053 PRINT-SSlSMSlltFGOF!!" 
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9055 GOSUB9600 
9068 RETURN 

9100 IFCD?i=0THENPRINT"NO"; :G0T09182 

9101 PRINT ,, TWO"; 

9102 PRINT" CONDITIONS ARE TRUE" : RETURN 

9104 PRINT"*"; 

9105 PRINT" CAUSES TOO LARGE A NUMBER" :RETURN 

9108 PRINT"/" ? 

9109 PRINT" CAUSES DIVISION BV ZERO" rRETURN 
9112 PRINT"1";;G0T09185 

9116 PRINT"RMD" ; :G0T09189 

9118 PR I NT " SQR OF NEGATIVE NUMBER" : RETURN 

9200 PRINT"LCM" ; 

9201 PRINT" OF NON-NATURAL NUMBER<S.V rRETURN , 
9204 PR I NT " GCD " ; : G0T0928 1 

9208 PRINT "ODD" ; 

9209 PRINT" OF NON-WHOLE NUMBER" :RETURN 
9212 PRINT"EVEN" ; :G0T09209 

9216 PRINT"FACT" ; :G0T09201 

9300 PR I NT "AND"; 

9301 PRINT" CONNECTS NON-TRUTH EXPRESSION'S) " rRETURN 

9302 PRINT" NON-TRUTH EXPRESSIONISM " : RETURN 
9304 PRINT"OR" ; rGOT09381 

9310 PRINT" A CONDITION MUST BE TRUE OR FALSE" rRETURN , 
9315 PRINT" I CAN'T 'NOT' A NON-TRUTH EXPRESSION" rRETURN 
9600 V=24:G0SUB18 

9605 PRINT"JST0 GO ON PRESS RETURN" " ; rG0SUB1788 r IFAO 13THEN9688 
9610 PRINT"!]" :F0RQZ=1T021 : PR I NT" " ; rNEXTGZ rRETURN 

9808 PR I NT " 3 _":PRINT" \s /S" :PRINT"| 1 I 1" :PRINT"| I II" 

9805 PRINT"! Ill" 

9S10 PR I NT "| | ||":PRINT"| f\ A I" :PRINTTAB<4> ;"\| U"" rRETURN 

9900 RPINT"asM5lI"; rGOSUB9990 rPRINT"U"; :G0SUB9998 rPRINT"U" ; rG0T09998 
9990 PR I NT " 3 ■" r RETURN 

?933 GOSUB9908 rV=20rGOSUB10 rPRINTTAB< 12> r rG0SUB1888 rGOSUB9SO0 rRETURN 
1 0000 GOSUB 1 1 800 
18O08 F0RQQ=8T04 

1O010 B$=CO$<QQ> :0*=RC$<QQ: >-rV=QQ*4 r GL$=;STR*< QQ+ 1 > + " . CONDITIONr " 
18815 QF=1 r GOTO 10850 

10020 B$=EX$<QQ> rO*=RX*<QQ.^ :V=QQ*4+2rQL*="lll*|0UTPUT = " rQF=2 rGOTO 10050 
10038 NEXTQQ r GOSUB 1 1950 rGOTO 10888 

18858 GOSUB 18 rPRINTQLS t&$; rX*=B* rLS=63 rG0SUBlS88 

18855 IFB$=""0RRIGHT*<B*,i:> = "?"THEN18858 

18868 IFB$==ES*THENG0SUB11988rG0T018888 

t8865 IFB$=AC*THENG0SUB1 1958 rGOTOl 1288 

188 78 IFB*=X*THEN188S8 

18875 GOSUB 12 

18877 IFER0RRE=8THENB$=B$+"?" rPRINT " I DON'T UNDERSTAND" rGOTO 18058 
18888 IFQF=2THEN18898 

18835 CO*CQQ.")=B* rRC^CQQ.^O* rGOTO 10820 
18898 EX-$<QQ>=B$rRX*<QQ>=0$rG0T01883e 

18100 IFNL<8THENPRINT"3SIM!ISSIBI -DON'T HAVE A MACHINE TO RUN" rG0SUB9688 rGOTOl 1288 
18181 'QG=8rPRINT"3"; rG0SUB9888 

18183 V=22rG0SUB18rPRINT"TVPE SHIFT SSSM TO SEE THE MENU"- 
18104 PRINT"TVPE* SHIFT TO TEST VOURSELF" 

18185 G0SUB14rV=19 rG0SUB18 rPRINT rPRINT" INPUT r " ; sG0SUBl,688 

18186 IFB*=ES*THEN 11288 

18187 IFB*=AC*THEN11188 

J 81X8 G0SUB9999 r IFEE=8THENG0SUB1 1888 rQG=QG+l r IFQG=19THENQG=8 
18128. G0T018185L 

11888 PRiNT"gMMMMMtfMMaattiattifcr i -; 



1 1016 I FQG=8THENPR I HT " tNPUT |0UTPIIT»HIH1IIIIII ~~" »QG-1 : GOTO 11 WWW 

1 1020 FORQZ=<TGQG+l :PRINT"S1"; : NEXTQZ : PR I NT I N j :QZ=LEN<STR*< I N> > 
1 1030 F0RQJ=1T0QZ:PRINT"H" ; :NEXTQJ :PRINT"|**W I IIIIIH" ;OUi RETURN 

111Q0 REM TEST 

1 1 1 03 PR I NT " □" : TAB < 1 8 > J " SfTESTSSlSlSlSlS" 

1,1 1 05 FGRQG= 1 T05 : V=RND < RND < ©> > : QR= I NT < RND < 1 > *5@+ 1 > 

11120 F*INTTAb\i5^^ = '';sGOSUB1600:PRINT"a" :IFB*=ES*THENG0T01 1206 

11125 I 9=IN:IN=QR: GOSUB I860 

1 1 1 30 I FEETHENQG=QG- 1 : GOTO 1 1 206 

11140 IF.RBS<I9-0U»AETHENPRINT:PRINT"THRT'S NOT WHAT I GET" :GOSUB9608 ibUTOlWltfW 
11150 NEXTQG : PR I NT : PR I NT " Slfill THINK YOU'VE GOT IT!!" 
1 1 1 60 GOSUB960O :G0T01 1208 
11200 REMMENU 

11-205 PRINT"3";TRBa2>;"^RSV SPEAK MENU 
11207 PRINT"VOU CRN: H" :QM*=" MACHINE" 

11210 PRINT"3=li> CREATE A" ;QM* :PRINT"SfiPB> LOAD fl";QM*" FROM THE NETWORK 
11215 PRINT"jaaCl) SEE NAMES OF"QM$"S ON NETWORK 

11217 PRINT"fflaD» DELETE "QM*" FROM NETWORK 

11218 PRINT"HJSE1> QUIT 
11220 IFNL<8THENG0T01 1388 

11238 PRIN"T"*SFS> RUI<TWE";QM*:PRINT"aiaG» TEST YOURSELF ON THE" ?QM* 
11248 PRINT"HSHB , > E$IT n"HE" :QM$ :PRINT"S35JIS> SAVE THE" ;QM$; " ON NETWORK" 

R IHO I CE : " ; : GOSUB 1 780 : 1 Ffl<650RA>73THEN 1 1 288 
11318 IFNL^0ANDA>69THEN£'128e 
1 1 -:28 QJ=fl/-64 :PRINT"a»»-SH* ' :G0SUB1788 : IFA013THEN1 1288 

1 1 330 ONQ-TGOTO 1 1 588 , 1 2080 , 1 2688 , 1 2988 , 1 3888 , 1 8 1 88 , 1 1 1 80 ., 1 88Q8 , 1 24WW 
11400 REMCLRPROG 

11410 F0RQZ=8T04 :CO*'QZ>=" " :EX*<QZ>=" " :NEXTQZ :NL=-1 J RETURN 

11588 REMCREATE 

11510 GOSUB 1 1 488 : GOTO 1 8088 

11688 REM-TITLE 

1 1 682 PR I NT " : P0KE59463 , 1 4 

11610 PRINTTABul4>"5l5lxT** I *~T - *-' ,, VE ,, agffl" 

11615 PRINTTflB<5>"* PART OF THE •■. <~l.-l ~r .'I "1 .'I .-NITH 

11620 PRINT" BV THE NATH NETWORK -URRICULUM "FOJECTH 

1 1 638 PR I NTT AB < 1 9 > " *-» M 

11648 PRINTTAB'-:i6>"4.8 |**-s-.Sl 

11668 GOSUB1200:GOSUB9600:PRINT"3" :P0KE59468, 12 

1170O PRINT"3" :F0RQQ=8T0NL:V=QQ*4:G0SUB18:PRINTQQ+1;"H. CONDITION: ";CO*<QQ> 

11718 V=V+2 : GOSUB 1 8 :PR I NT " OUTPUT = " ;EX*<QQ> iNEXTQQ :RETURN 

11S88 GOSUB 1 1 788 : V=22 : GOSUB 1 8 :PR I NT " T VPE SHIFT 331 TO ERASE A STATEMENT" 

11S18 PRINT "TVPE SHIFT S&S WHEN FINISHED" :RETURN 

1 1988 F0RQZ=QQT03 :C0*<QZ>=C0*<QZ+1 > :EX*<QZ>=EX*<QZ+ 1 > 

1 1982 RC*<QZ>=RC*<QZ+n xRX*<QZ>-RX*<QZ+l > :NEXTQZ 

11985 C0*<4>="" :EX*<4>="" :RC*<4>="" :RX*<4>="" 

11910 GOSUB 11 950: RETURN 

11950 F0RQZ=0T04 

1 1955 NL=QZ-1 :IFCO*<QZ>=""OREX*<QZ>=""THENCO*<QZ>="" :EX*<QZ>="" : RETURN 
11960 NEXTQZ :NL=4 : RETURN 
120OO REM-NETLOAD 

12002 PRINT"3d^ETL0AD" :G0SUB12808 : IFR*=ES*THEN12138 
12O10 PRINT :PRI'NT"SHAME OF MACHINE" :PRINT"TO LORD: "; 
1 2830 B*= " " : LS= 1 6 : GOSUB 1 S80 : NM*=B* : I FB$=ES$THEN 12138 
12848 0*="DER"+NM*:G0SUB688:Y$=I* 

1206O IF LEFT* < I * , 4><> " DERT " THENPR I NT : PR I NT " NOT FOUND" :GOTO12O10 
12070 GOSUB 11400 

12O30 GOSUB122O0:IF ER THEN 12818 
12885 IF RES THEN 12138 



12890 NL=NL+1 :C0*'.NL j=B* :G0SUB12 :RC*<NL^=0* :G0SUB 12288 : IFERTHEN12818 
12118 EX* < HL > =B* : I FRETHENPR I NT : PR I NT 11 NET ERROR" : GOTO 128 18 
12115 GOSUB 1 2 :RX*OJL}=Q*:GQTQ 12888 
12138 G0T01 1288 
12288 REM-GETLINE 

1 221 8 RES=F A : ER=FR : X*=M I D* < V* , 5 , 4 > : I FK*= " 8888 " THENRE=TR : RETURN 

12238 0*="DES"+X* : G0SUB688 : V*= I * : I FLEFT* < I * .r 4 .> C> " DEST 11 THENPR I NT : PR I N T " NET ERROR 
12235 B*=M ID* <V*,9> : RETURN 
12488 REM-NETSfiVE 

12482 PRINT ,, 3j*^ETSRVE m :G0SUB1 2388 : IFA*=ES*THEN1 2548 
12418 PRINT :PRINT"SNAME OF MACHINE: jr 
12428 B*-" " :LS=1S : GOSUB 1^88 :SN*=B* : IFB*=ES*THEN1 2548 
12438 PRINT :PRINT" VQUR NRME : 

12448 B*= M " :LS=16:G0SUB1880:PRINT:NM*=B*:IFB*=ES*THEN12548 
1 2458 GOSUB 1 3288 : 0*= " DER " +0*+NM*+SN* : GQSUB68© 

12478 IF LEFT* < I * r 4 > 0"DEflT 11 THENPR I NTSN* 11 IN USE! " : GOTO 124 18 
12475 B*=MID*«. I*.5> :F0RN=8T0NL 
12438 0*= ,, DEL ,, +B*+CO*«a-i:i :G0SUBS88 

lc'58Q IF LEFT*^' I* r4j C>"DELT"THEN PRINT "NET ERROR" :N=NL :GOTO 12538 
12518 0*="DEL"+B*+EX*kN> :GGSUB688 

12528 I FLEFT* < I * r 4 .> O " DELT " THEN PRINT "NET ERROR" :N=NL :G0T0 12538 
12538 NEXT 
12548 GOTO 11288 
12688 REM HETNflMES 

12682 PR INT "□sHETNflMES" : GOSUB 1 2388 : I FR*=ES*THEN1 2678 

12618 PR I NT "SBEG INNING WITH: M ; :B*="" :LS= 16 : GOSUB 1880 :SK*=B* :PRINT 

12615 IFR*=ES*THEN12S78 

12628 0*="DEN888"+SK* 

1 2638 G0SUB688 : 1 FM I D* »' I * . 4 * 1 > O " T " THEN 1 2668 

12648 PRINTMID*<I*,8> :GETfl* : IFR*-"— "THENGOTO 1 2668 

12658 G*="DEN"+MID*'v I*,5**3>+SK* :G0T012630 

12668 G0SUB9688 

1 2678 GOTO 1 1 288 

12388 REM-DIfiL 

12818 B* =M 11 : PR I NT : PR I NT "ARE YOU CONNECTED TO THE NETWORK? 
12315 PRINT" ^JJt'S, 5N«, OR JJ3HIFT QS> 11 ' sLS=l : GOSUB 1388 
12S28 PRINT : I FLEFT* CB* r 1 >=" Y"GRR*=ES*THENRETURN 
12325 PRINT"DO YOU HRVE R MODEM? " ; 

12827 B*=" " :G0SUB1S88 : IFB*O"Y"0RR*=ES*THENR*==ES* : RETURN 

12828 PRINT 

12338 PRINT"PLEfiSE DIRL 469-2126" :0*="EASY SPEAK HELLO" :G0SUB688 :PRINTI* :RETURN 
12988 REM-NETDEL 

12982 PRINT"3J*^ETDELETE" :G0SUB12308:IFA*=£S*THEN12998 
12928 PRINT :PRINT"NRME OF MRCHINE 

12925 PRINT"TO DELETE: " ; :B*=" " :LS=16 :G0SUB1S88 : IFA*=ES*THENG0T012998 
12927 SN*=B* 

12938 PRINT :PR INT "YOUR NRME : " ; :B*=" " :LS=16 :G0SUB1888 : IFR*=ES*THEN12998 
1 2935 NM*=B* : GOSUB 13288: 0*= " DED " +G*+NM*+SN* : G0SUB688 
12945 A*=MID*»;i*,4,l> . - 

12947 IFR*="C"THENPRINT:PRINT"J*JRONG NAME OF CREATOR OF"QM* : GOTO 12938 
12958 IFA*="F"THENPRINT:PRINT"5^0 MACHINE BY THRT NRME" : GOTO 12928 
12955 IFI*="DEDT"THENPRINT:PRINT"J33UCCESSFUL DELETE 
12968 Gtf5tlB9685 

12998 G0T011266"DED"0*NM*SN*:688 
13888 REMQUIT ■ 

13818 PRINT"ai5iaG00D B THEN ! " :P0KE48 r 1 :P0KE41 r 4 :END 
13288 REM FRMT 0* 

1 32 1 8 0*=M I D* < STR* < LEN NM* > > , 2 > : I FLEN < 0* > <2THEN0*= " 8 " +0* : RETURN 
READY. 



